這樣改如何,我是沒試,因為有很多我也不知道你做何用的物件,所以沒實做/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