作者idleidle (MP3随身碟眼花嘹乱~~)
看板Visual_Basic
标题Re: [VB6 ] 密码问题
时间Tue Aug 23 21:04:18 2005
为什麽要用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
1F：推 fumizuki:而且在回圈中也没有给予重新输入的机会 210.58.156.43 08/24
2F：推 walis:用隐藏的 text物件 来累积错误次数 也是可以 140.109.128.107 09/07
3F：→ walis:把 while 拿掉,说得没错,还要再加上再输入的程序140.109.128.107 09/07