UC知道vb 的高手帮我看一下
来源：百度知道 编辑：UC知道 时间：2024/05/12 18:47:18
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdOK_Click()
Dim User As New clsUser '用户对象
Dim Result As gxcLoginResult '登录结果（gxcLoginResult枚举类型）
'用户登录并返回登录结果
Result = User.IsValidUser(Trim(txt(0)), txt(1), UserID, TrueName, UserType)
'合法用户
If Result = ValidUser Then
frmMain.Show
Unload Me
'用户名错误
ElseIf Result = WrongUserName Then
MsgBox "用户名错误！", vbInformation
txt(0).SetFocus
'密码错误
ElseIf Result = WrongPassword Then
MsgBox "密码错误！", vbInformation
txt(1).SetFocus
End If
End Sub
'文本框获得焦点时选中所有文字
Private Sub txt_GotFocus(Index As Integer)
txt(Index).SelStart = 0 '选中文字的起始位置
txt(Index).SelLength = Len(txt(Index)) '选中文字的长度
End Sub
为什么运行时单击cmdOK按钮时无反应,谢谢
End
End Sub
Private Sub cmdOK_Click()
Dim User As New clsUser '用户对象
Dim Result As gxcLoginResult '登录结果（gxcLoginResult枚举类型）
'用户登录并返回登录结果
Result = User.IsValidUser(Trim(txt(0)), txt(1), UserID, TrueName, UserType)
'合法用户
If Result = ValidUser Then
frmMain.Show
Unload Me
'用户名错误
ElseIf Result = WrongUserName Then
MsgBox "用户名错误！", vbInformation
txt(0).SetFocus
'密码错误
ElseIf Result = WrongPassword Then
MsgBox "密码错误！", vbInformation
txt(1).SetFocus
End If
End Sub
'文本框获得焦点时选中所有文字
Private Sub txt_GotFocus(Index As Integer)
txt(Index).SelStart = 0 '选中文字的起始位置
txt(Index).SelLength = Len(txt(Index)) '选中文字的长度
End Sub
为什么运行时单击cmdOK按钮时无反应,谢谢
你在
Result = User.IsValidUser(Trim(txt(0)), txt(1), UserID, TrueName, UserType)
后面加一句: debug.print Result
看看结果是什么,应该不在你列举的三种情况里
ValidUser ,WrongUserName,WrongPassword 应该是三个常量,看看定义没
程序员不要轻易问人，尽量自己解决才能成长为一代宗师级别的高手
Dim User As New clsUser '用户对象
这一句是你定义了一个新的类,你要确定你已经安装相应的部件,不然系统是不可能识别这个新对象的.