疑問 - 各位大大好～我又有疑問要問了...VB6.0(還是Command的問題..和之前不一樣)

[kppne0931]

作者: 劍痞憶秋年

這樣改如何，我是沒試，因為有很多我也不知道你做何用的物件，所以沒實做/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用來關閉視窗　）　　　　還有連線成功也是一樣。。。