请问 如何用VB 编辑一个 能确认帐号密码是否错误和正确的登陆界面？

我很急 喜欢能在这找到答案。。我是一只菜鸟

看来没人告诉我了

直接在窗体上放两个文本框，一个输入用户名，一个输入密码，还要放一个按钮，用来登录。
编辑那个按钮的代码，用 If ... Then ... Else ... End If，来判断两个文本框输入的文字是否有能力成功登录。

能不能给我完整的代码做个示范

求求您了~~ 我现在正在学习编辑代码

假设窗体上放了两个文本框和一个按钮(全部不需要重命名)。编辑代码:

Private Sub Command1_Click()
If (Text1.Text = "username") And (Text2.Text = "password") Then
'用户名和密码输入正确，登录成功
MsgBox "登录成功!", vbInformation
Else
'输入不正确，登录失败
MsgBox "登录失败!", vbExclamation
End If
End Sub

非常感谢我明白了~~ 但是这样的代码只能实现一个帐号和密码的正确判断

如我想判断多个帐号密码 怎么填加代码格式？

Private Sub Command1_Click()
Dim strUsers(), strTemp(), i As Integer

strUsers = Split("用户名1|密码1,用户名2|密码2,用户名3|密码3", ",") '注意: 一定要是英文逗号(,)不是全角逗号(，)

strTemp = Filter(strUser, Text1.Text & "|" & Text2.Text) 'Filter 用来检测某个数据是否被数组的某(几)个元素所包含，它返回了一个数组

If UBound(strTemp) > -1 Then '有匹配的结果
'用户名和密码输入正确，登录成功
MsgBox "登录成功!", vbInformation
Else
'输入不正确，登录失败
MsgBox "登录失败!", vbExclamation
End If
End Sub

非常感谢得到你们的帮助

还在吗 请把
Private Sub Command1_Click()
Dim strUsers(), strTemp(), i As Integer

strUsers = Split("用户名1|密码1,用户名2|密码2,用户名3|密码3", ",") '注意: 一定要是英文逗号(,)不是全角逗号(，)

strTemp = Filter(strUser, Text1.Text & "|" & Text2.Text) 'Filter 用来检测某个数据是否被数组的某(几)个元素所包含，它返回了一个数组

If UBound(strTemp) > -1 Then '有匹配的结果
'用户名和密码输入正确，登录成功
MsgBox "登录成功!", vbInformation
Else
'输入不正确，登录失败
MsgBox "登录失败!", vbExclamation
End If
End Sub

完整的做一个代码给我
我编辑了 老说不区配

还在吗 请把




Private Sub Command1_Click()
Dim strUsers(), strTemp(), i As Integer

strUsers = Split("用户名1|密码1,用户名2|密码2,用户名3|密码3", ",") '注意: 一定要是英文逗号(,)不是全角逗号(，)

strTemp = Filter(strUser, Text1.Text & "|" & Text2.Text) 'Filter 用来检测某个数据是否被数组的某(几)个元素所包含，它返回了一个数组

If UBound(strTemp) > -1 Then '有匹配的结果
'用户名和密码输入正确，登录成功
MsgBox "登录成功!", vbInformation
Else
'输入不正确，登录失败
MsgBox "登录失败!", vbExclamation
End If
End Sub





完整的做一个代码给我
我编辑了 老说不区配