我很急 喜欢能在这找到答案。。我是一只菜鸟
还在吗 请把
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
完整的做一个代码给我
我编辑了 老说不区配