UC知道请高手指点：这段VB程序出错在什么地方？
来源：百度知道 编辑：UC知道 时间：2024/05/22 15:15:43
Private Sub ComOk_Click()
Static I As Integer
If I <= 2 Then
If texpass.Text = "love" Then
Unload forpass
Formain.Show
Else
labmsg.Caption = "密码无效，Try again!"
End If
Else
labmsg.Caption = "三次输入错误，拒绝再次输入！"
texpass.Enabled = False
End If
I = I + 1
End Sub
为什么不能正常运行？
“Formain.Show”这句有什么不对吗？
Static I As Integer
If I <= 2 Then
If texpass.Text = "love" Then
Unload forpass
Formain.Show
Else
labmsg.Caption = "密码无效，Try again!"
End If
Else
labmsg.Caption = "三次输入错误，拒绝再次输入！"
texpass.Enabled = False
End If
I = I + 1
End Sub
为什么不能正常运行？
“Formain.Show”这句有什么不对吗？
forpass 和 Formain 都是窗体名字
检查你有没有这两个窗体，没有就会出错。
forpass 应该是密码输入窗体
Formain 应该是密码正确之后要弹出的主窗体
把Unload forpass语句和Formain.Show掉换一下，应该就可以了，代码如下：
Private Sub ComOk_Click()
Static I As Integer
If I <= 2 Then
If texpass.Text = "love" Then
Formain.Show
Unload forpass
Else
labmsg.Caption = "密码无效，Try again!"
End If
Else
labmsg.Caption = "三次输入错误，拒绝再次输入！"
texpass.Enabled = False
End If
I = I + 1
End Sub