[VB6 ] 關於密碼輸入
Dim a As Integer
Private Sub Command1_Click()
If Text1.Text = "pig" Then
MsgBox "密碼正確", vbInformation, "可進入程式"
Form2.Show
a = 1
ElseIf a <= 3 Then
a = a + 1
z = MsgBox("密碼錯誤,你是否要再輸入一次", vbYesNo + vbExclamation, "齁...錯誤喔")
If z = vbNo Then
End
Else
Text1.Text = ""
End If
Else
End
End If
End Sub
Private Sub Command2_Click()
y = MsgBox("你確定要離開嗎?", vbYesNo, "結束")
If y = vbYes Then
MsgBox "bye-bye!!"
End
End If
End Sub
Private Sub Command3_Click()
Text1.Text = ""
a = 1
End Sub
Private Sub Form_Load()
a = 1
End Sub
我要寫的是最多輸入3次.....超過3次就跳出來
可是為什麼我執行的時候它最多可以輸入5次
請各位幫我看一下吧 謝謝嚕^^
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.170.231.70
→
04/22 16:07, , 1F
04/22 16:07, 1F
→
04/22 16:08, , 2F
04/22 16:08, 2F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
