推 fumizuki:而且在迴圈中也沒有給予重新輸入的機會 210.58.156.43 08/24
推 walis:用隱藏的 text物件 來累積錯誤次數 也是可以 140.109.128.107 09/07
→ walis:把 while 拿掉,說得沒錯,還要再加上再輸入的程序140.109.128.107 09/07
為什麼要用While判斷呢？
VB是"事件驅動"(找不到什麼好的名詞)
所以只要使用者觸發事件時
去檢查前面輸入錯誤的次數
若超過次數，直接結束就好了
想不出那個while是幹麻用的
※ 引述《fuwafuwa (０８１９我要輕鬆玩)》之銘言：
: 我想要寫一個輸入密碼的程式，
: 密碼輸入錯誤三次就結束系統，
: 密碼對了就進入另一個form，
: 程式碼如下：
: Dim flag As Integer
: Private Sub Text1_KeyPress(KeyAscii As Integer)
: flag = 0
: While flag < 3
: If KeyAscii = 13 Then
: If Text1.Text = "12345" Then
: Form8.Visible = False
: Form1.Visible = True
: Else
: flag = flag + 1
: Print "密碼輸入錯誤，請重新輸入。"
: End If
: End If
: Wend
: Print "密碼輸入錯誤已達三次，謝謝光臨歡迎下次再來。"
: End
: End Sub
: 執行時無法在text1輸入，只要按一個鍵，
: 整個程式就當掉。
: 請問問題出在哪，先謝謝回答的人。:D
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.161.73.179