作者neplayer (neplayer)
看板Visual_Basic
標題Re: [VB6 ] 密碼問題
時間Tue Aug 23 17:18:40 2005
※ 引述《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
如果user按下不是KeyAscii 13的按鍵
那裡面的if因為是false所以不會執行
變成一直在外面的while跑
變成無限迴圈, overflow就當了
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.120.134.239
1F：推 fumizuki:就算按下enter鍵,要錯三次才能離開程式... 210.58.156.43 08/23