| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 456 人关注过本帖
标题:leon2 请进~
只看楼主 加入收藏
anqiao009
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2006-1-22
收藏
 问题点数:0 回复次数:5 
leon2 请进~
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

---------------------------------------------------------------------------------------------------------------------------------------------------
上面这一段代码是您给我的 请问 因为我是新手 能不能给我调试成一个完整无错的外码
上面这段代码我写入 说 不驱配
2006-01-23 02:03
anqiao009
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2006-1-22
收藏
得分:0 

请回答好吗 我需要帮助

2006-01-23 02:16
anqiao009
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2006-1-22
收藏
得分:0 
怎么这么久不给我答复啊 晕啊
怎么帮人帮到一半就不帮了
2006-01-23 02:21
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

以下是经过验证的代码:

[QUOTE]Private Sub Command1_Click()
Dim strUsers, strTemp, i As Integer
strUsers = Split("用户名1|密码1,用户名2|密码2,用户名3|密码3", ",") '注意: 一定要是英文逗号(,)不是全角逗号(,)
strTemp = Filter(strUsers, Text1.Text & "|" & Text2.Text) 'Filter 用来检测某个数据是否被数组的某(几)个元素所包含,它返回了一个数组
If UBound(strTemp) > -1 Then '有匹配的结果
'用户名和密码输入正确,登录成功
MsgBox "登录成功!", vbInformation
Else
'输入不正确,登录失败
MsgBox "登录失败!", vbExclamation
End If
End Sub[/QUOTE]


天津网站建设 http://www./
2006-01-23 08:33
ldd2w
Rank: 1
等 级:新手上路
帖 子:67
专家分:0
注 册:2006-1-4
收藏
得分:0 

我也在找leon2
可他就是不理我

2006-01-23 15:06
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分:0 

就按照 griefforyou 版主的那样做,把 strUsers() 和 strTemp() 的括号去掉就行了。

2006-01-23 15:49
快速回复:leon2 请进~
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023749 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved