作者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