史萊姆論壇

返回   史萊姆論壇 > 專業主討論區 > 程式語言討論區
刷新本頁 疑問 - 各位大大好～我又有疑問要問了...VB6.0(還是Command的問題..和之前不一樣)
忘記密碼?
論壇說明

歡迎您來到『史萊姆論壇』 ^___^

您目前正以訪客的身份瀏覽本論壇，訪客所擁有的權限將受到限制，您可以瀏覽本論壇大部份的版區與文章，但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限，請註冊成為我們的一份子，註冊的程序十分簡單、快速，而且最重要的是－－註冊是完全免費的！

請點擊這裡：『註冊成為我們的一份子！』

Google 提供的廣告


發文 回覆
 
主題工具 顯示模式
舊 2009-05-26, 09:58 PM   #1 (permalink)
長老會員
 
劍痞憶秋年 的頭像
榮譽勳章
UID - 15
在線等級: 級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時
註冊日期: 2002-12-06
住址: 步雲崖
文章: 280
精華: 0
現金: 15847 金幣
資產: 20867 金幣
預設
MSGBOX 可能無法達到你要的,因為要按一下才會再換下一個新的訊息(無法直接 控制/改變 訊息內容)
所以咧,我就用表單 + TIMER 來試做你要的，不過看不到最後的 連線成功
試看看如何
PHP 語法:
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '系統預設值
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   1440
      TabIndex        =   0
      Top             =   1200
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Option Explicit

Private Sub Command1_Click()
  With Form2
    '清空計數器
    .Times = 0
    .Show
  End With
End Sub 
PHP 語法:
VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '系統預設值
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   3360
      Top             =   2160
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   495
      Left            =   600
      TabIndex        =   0
      Tag             =   "連線中。"
      Top             =   960
      Width           =   1215
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private intTimes As Integer

Private Sub Form_Initialize()
  intTimes = 0
  Label1.Caption = Label1.Tag
End Sub

Public Property Get Times() As Integer
    Times = intTimes
End Property

Public Property Let Times(ByVal vNewValue As Integer)
     intTimes = vNewValue
End Property

Private Sub Form_Load()
    Label1.Caption = Label1.Tag
End Sub

Private Sub Timer1_Timer()
    '
    If intTimes = 2 Then
       Label1.Caption = "連線成功"
       Unload Me
    End If
    Label1.Caption = Label1.Caption & "。"
    intTimes = intTimes + 1
End Sub 
__________________
一切有為法 如夢幻泡影
如露亦如電 應作如是觀
劍痞憶秋年 目前離線  
送花文章: 150, 收花文章: 33 篇, 收花: 130 次
回覆時引用此帖
有 3 位會員向 劍痞憶秋年 送花:
kppne0931 (2009-05-26),Living (2009-05-27),magicwoo (2009-05-30)
感謝您發表一篇好文章
舊 2009-05-26, 10:32 PM   #2 (permalink)
註冊會員
榮譽勳章
UID - 311122
在線等級: 級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時
註冊日期: 2008-10-06
文章: 65
精華: 0
現金: 124 金幣
資產: 144 金幣
預設
引用:
作者: 劍痞憶秋年 查看文章
MSGBOX 可能無法達到你要的,因為要按一下才會再換下一個新的訊息(無法直接 控制/改變 訊息內容)
所以咧,我就用表單 + TIMER 來試做你要的，不過看不到最後的 連線成功
試看看如何
PHP 語法:
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '系統預設值
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   1440
      TabIndex        =   0
      Top             =   1200
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Option Explicit

Private Sub Command1_Click()
  With Form2
    '清空計數器
    .Times = 0
    .Show
  End With
End Sub 
PHP 語法:
VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '系統預設值
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   3360
      Top             =   2160
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   495
      Left            =   600
      TabIndex        =   0
      Tag             =   "連線中。"
      Top             =   960
      Width           =   1215
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private intTimes As Integer

Private Sub Form_Initialize()
  intTimes = 0
  Label1.Caption = Label1.Tag
End Sub

Public Property Get Times() As Integer
    Times = intTimes
End Property

Public Property Let Times(ByVal vNewValue As Integer)
     intTimes = vNewValue
End Property

Private Sub Form_Load()
    Label1.Caption = Label1.Tag
End Sub

Private Sub Timer1_Timer()
    '
    If intTimes = 2 Then
       Label1.Caption = "連線成功"
       Unload Me
    End If
    Label1.Caption = Label1.Caption & "。"
    intTimes = intTimes + 1
End Sub 


感覺上...很複雜耶....不然大大你看一下我用的不知道要如何改...


Private Sub Command3_Click()
Dim pw As String
pw = "kenc77996"

If Text4.Text <> pw Then

Label15.Caption = "帳號或密碼錯誤！"
Else


pw = "ken33664"

If Text5.Text <> pw Then

Label15.Caption = "帳號或密碼錯誤！"
Else
Label15.Caption = "登入成功！感謝您使用本程式"
Frame1.Enabled = True
Frame2.Enabled = True
Check1.Enabled = True
Check2.Enabled = True
Check3.Enabled = True
Check4.Enabled = True
Check5.Enabled = True
Check6.Enabled = True
Check7.Enabled = True
Check8.Enabled = True
Check9.Enabled = True
Check10.Enabled = True
Check11.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
Command1.Enabled = True
Command2.Enabled = True
End If
End If

End Sub


以上片段...按下Command出現連線中...一樣跑出句號...然後再檢測PW 如果正確 則顯示登入成功 如果錯誤 則顯示帳號或密碼錯誤 請問如果這樣要如何改...
kppne0931 目前離線  
送花文章: 77, 收花文章: 61 篇, 收花: 117 次
回覆時引用此帖
有 2 位會員向 kppne0931 送花:
Living (2009-05-27),magicwoo (2009-05-30)
感謝您發表一篇好文章
舊 2009-05-26, 10:46 PM   #3 (permalink)
長老會員
 
劍痞憶秋年 的頭像
榮譽勳章
UID - 15
在線等級: 級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時
註冊日期: 2002-12-06
住址: 步雲崖
文章: 280
精華: 0
現金: 15847 金幣
資產: 20867 金幣
預設
這樣改如何，我是沒試，因為有很多我也不知道你做何用的物件，所以沒實做/run，不過觀念絕對是對的
PHP 語法:
Dim intTimes as Integer

Private Sub Timer1_Timer() 
    ' 
    If intTimes >= 2  and Frame1.Enabled = True Then 
       Label1.Caption = "連線成功" 
       Timer1.Enabled = False
    End If 
    Label1.Caption = Label1.Caption & "。" 
    intTimes = intTimes + 1 
End Sub  

Private Sub Form_Load() 
    Label1.Caption = "連線中。"
    intTimes = 0
End Sub 

Private Sub Command3_Click()
Dim pw As String

Label1.Caption = "連線中。"
intTimes = 0
Timer1.Enabled = True

pw = "kenc77996"
If Text4.Text <> pw Then
  Label15.Caption = "帳號或密碼錯誤！"
Else
  pw = "ken33664"

  If Text5.Text <> pw Then

     Label15.Caption = "帳號或密碼錯誤！"
  Else
     Label15.Caption = "登入成功！感謝您使用本程式"
     Frame1.Enabled = True
     Frame2.Enabled = True
     Check1.Enabled = True
     Check2.Enabled = True
     Check3.Enabled = True
     Check4.Enabled = True
     Check5.Enabled = True
     Check6.Enabled = True
     Check7.Enabled = True
     Check8.Enabled = True
     Check9.Enabled = True
     Check10.Enabled = True
     Check11.Enabled = True
     Text1.Enabled = True
     Text2.Enabled = True
     Command1.Enabled = True
     Command2.Enabled = True
    End If
  End If

End Sub 
劍痞憶秋年 目前離線  
送花文章: 150, 收花文章: 33 篇, 收花: 130 次
回覆時引用此帖
有 3 位會員向 劍痞憶秋年 送花:
kppne0931 (2009-05-27),Living (2009-05-27),magicwoo (2009-05-30)
感謝您發表一篇好文章
舊 2009-05-27, 06:18 AM   #4 (permalink)
註冊會員
榮譽勳章
UID - 311122
在線等級: 級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時
註冊日期: 2008-10-06
文章: 65
精華: 0
現金: 124 金幣
資產: 144 金幣
預設
引用:
作者: 劍痞憶秋年 查看文章
這樣改如何，我是沒試，因為有很多我也不知道你做何用的物件，所以沒實做/run，不過觀念絕對是對的
PHP 語法:
Dim intTimes as Integer

Private Sub Timer1_Timer() 
    ' 
    If intTimes >= 2  and Frame1.Enabled = True Then 
       Label1.Caption = "連線成功" 
       Timer1.Enabled = False
    End If 
    Label1.Caption = Label1.Caption & "。" 
    intTimes = intTimes + 1 
End Sub  

Private Sub Form_Load() 
    Label1.Caption = "連線中。"
    intTimes = 0
End Sub 

Private Sub Command3_Click()
Dim pw As String

Label1.Caption = "連線中。"
intTimes = 0
Timer1.Enabled = True

pw = "kenc77996"
If Text4.Text <> pw Then
  Label15.Caption = "帳號或密碼錯誤！"
Else
  pw = "ken33664"

  If Text5.Text <> pw Then

     Label15.Caption = "帳號或密碼錯誤！"
  Else
     Label15.Caption = "登入成功！感謝您使用本程式"
     Frame1.Enabled = True
     Frame2.Enabled = True
     Check1.Enabled = True
     Check2.Enabled = True
     Check3.Enabled = True
     Check4.Enabled = True
     Check5.Enabled = True
     Check6.Enabled = True
     Check7.Enabled = True
     Check8.Enabled = True
     Check9.Enabled = True
     Check10.Enabled = True
     Check11.Enabled = True
     Text1.Enabled = True
     Text2.Enabled = True
     Command1.Enabled = True
     Command2.Enabled = True
    End If
  End If

End Sub 
剛剛去試了一下.....沒效果　不知道哪裡出問題 不知道能不能改成 用小視窗表示 ：連線中.... (每個間隔0.5秒)帳號或密碼錯誤(此時實小視窗面出現Command用來關閉視窗　）　　　　還有連線成功也是一樣。。。
kppne0931 目前離線  
送花文章: 77, 收花文章: 61 篇, 收花: 117 次
回覆時引用此帖
有 2 位會員向 kppne0931 送花:
Living (2009-05-28),magicwoo (2009-05-30)
感謝您發表一篇好文章
舊 2009-05-27, 03:20 PM   #5 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:98 | 在線時長:10188小時 | 升級還需:9小時級別:98 | 在線時長:10188小時 | 升級還需:9小時級別:98 | 在線時長:10188小時 | 升級還需:9小時級別:98 | 在線時長:10188小時 | 升級還需:9小時級別:98 | 在線時長:10188小時 | 升級還需:9小時級別:98 | 在線時長:10188小時 | 升級還需:9小時級別:98 | 在線時長:10188小時 | 升級還需:9小時級別:98 | 在線時長:10188小時 | 升級還需:9小時
註冊日期: 2002-12-07
文章: 13514
精華: 0
現金: 26915 金幣
資產: 3024845 金幣
預設
如圖設定
http://xs839.xs.to/xs839/09223/msg871.jpg

至於密碼設計請自行加入

補充:
請在 Form2 的
語法:
Private Sub Form_Load()

    Label1.Caption = "連線中"
    Timer1.Enabled = True
    Timer1.Interval = 500
    
End Sub
裡面補一句
Command1.Visible = False
mini 目前離線  
送花文章: 2058, 收花文章: 8081 篇, 收花: 26936 次
回覆時引用此帖
有 3 位會員向 mini 送花:
kppne0931 (2009-05-27),Living (2009-05-28),magicwoo (2009-05-30)
感謝您發表一篇好文章
舊 2009-05-27, 06:36 PM   #6 (permalink)
註冊會員
榮譽勳章
UID - 311122
在線等級: 級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時
註冊日期: 2008-10-06
文章: 65
精華: 0
現金: 124 金幣
資產: 144 金幣
預設
引用:
作者: mini 查看文章
如圖設定
http://xs839.xs.to/xs839/09223/msg871.jpg

至於密碼設計請自行加入

補充:
請在 Form2 的
語法:
Private Sub Form_Load()

    Label1.Caption = "連線中"
    Timer1.Enabled = True
    Timer1.Interval = 500
    
End Sub
裡面補一句
Command1.Visible = False

線在已經可以顯示連線中了...但是...檢測密碼我不知道要如何改上去...(如果密碼錯誤就在Form2 顯示連線失敗)還有 顯示連線完成時 按下Command vb跑出 "此處需要物件" 為啥會這樣...
kppne0931 目前離線  
送花文章: 77, 收花文章: 61 篇, 收花: 117 次
回覆時引用此帖
有 2 位會員向 kppne0931 送花:
Living (2009-05-28),magicwoo (2009-05-30)
感謝您發表一篇好文章
舊 2009-05-28, 06:48 AM   #7 (permalink)
註冊會員
榮譽勳章
UID - 311122
在線等級: 級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時
註冊日期: 2008-10-06
文章: 65
精華: 0
現金: 124 金幣
資產: 144 金幣
預設
現在...就只剩下檢測密碼部份要如何改.......拜託各位大大幫助一下吧～
kppne0931 目前離線  
送花文章: 77, 收花文章: 61 篇, 收花: 117 次
回覆時引用此帖
有 2 位會員向 kppne0931 送花:
Living (2009-05-28),magicwoo (2009-05-30)
感謝您發表一篇好文章
發文 回覆

« 上一主題 | 下一主題 »


發表規則
您不可以發文
您不可以回覆主題
您不可以上傳附加檔案
您不可以編輯您的文章
論壇啟用 BB 語法
論壇啟用 表情符號
論壇啟用 [IMG] 語法
論壇禁用 HTML 語法
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 禁用


所有時間均為台北時間。現在的時間是 07:46 PM。

《 史萊姆的第一個家 》 - 論壇存檔 - 返回頂端

Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2025, Jelsoft Enterprises Ltd.

『服務條款』

* 有問題不知道該怎麼解決嗎？請聯絡本站的系統管理員 *


SEO by vBSEO 3.6.1