Re: [VB6 ] 密碼問題

看板Visual_Basic作者neplayer (neplayer)時間19年前 (2005/08/23 17:14)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串2/4 (看更多)

※ 引述《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

推

fumizuki

210.58.156.43 08/23, , 1^F

210.58.156.43 08/23, 1^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 neplayer 的文章

文章代碼(AID): #132kZSuS (Visual_Basic)