VB子程序未定义错误

来源：百度知道编辑：UC知道时间：2024/05/11 19:19:15

各位帮我看看哈谢谢大家了

Private Sub cmdOK_Click()
'验证用户填写的正确
If txtUserName.Text = "" Then
MsgBox "请填写用户名！", vbOKOnly + vbInformation, "注意"
txtUserName.SetFocus
Exit Sub
ElseIf txtPassWord.Text = "" Then
MsgBox "请填写密码！", vbOKOnly + vbInformation, "注意"
txtPassWord.SetFocus
Exit Sub
End If
'设置登录变量，这是为IsExistUser函数而设置的
g_blogin = True
If IsExistuser(txtUserName.Text, txtPassWord.Text) Then
'用户登录成功
Unload Me
Else
If IsExistuser(txtUserName.Text, "") Then
MsgBox "密码不正确！请重试……", vbOKOnly + vbInformation, "错误"
Else
MsgBox "无此用户！请先注册……", vbOKOnly + vbInformation, "错误"

End If
End If

End Sub

IsExistuser是一个自定义函数，你缺少它便产生错误。

Public Function IsExistuser(ByVal strUser as string,ByVal strPass as string) As Boolean

代码、、、、

END FUNCTION

哈哈，把你的那个子函数放到最前面，或者在你调用之前，声明一下，就行了

VB子程序未定义错误 vb子程序或函数未定义哪位VB高手帮我看下，我程序错哪了？说我子程序或函数未定义函数和子程序未定义怎么修改啊 vb调用子程序 vb 中 Adodc1未定义 vb hour 未定义 response 未定义的错误未定义的错误(QQ) VB用户定义类型未定义