Re: [VB6 ] 密碼問題
※ 引述《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
推
210.58.156.43 08/23, , 1F
210.58.156.43 08/23, 1F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
