标题:vb listbox控件怎样检测内容,根据内容响应事件?
只看楼主
ymhy12345
Rank: 2
等 级:论坛游民
帖 子:83
专家分:36
注 册:2011-8-27
结帖率:72.73%
 问题点数:0 回复次数:9 
vb listbox控件怎样检测内容,根据内容响应事件?
listbox 控件加载adult.dat记事本内容,记事本内容有特殊字符,一年级||>
二年级==>,点击列表一年级,检测内特殊字符||>响应msgbox"你选择的是一年级"。点击列表二年级,检测内特殊字符||>响应msgbox"你选择的是二年级",怎样做到


新建文件夹 (4).rar (2.18 KB)



搜索更多相关主题的帖子: 检测 特殊 
2012-12-23 21:34
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
得分:0 
Right(List1.Text, 3)

无知
2012-12-23 23:30
ymhy12345
Rank: 2
等 级:论坛游民
帖 子:83
专家分:36
注 册:2011-8-27
得分:0 
回复 2楼 Artless
版主说详细点,俺不太明白
2012-12-24 00:00
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
得分:0 
if Right(List1.Text, 3)="||>" then

无知
2012-12-24 00:01
邵帅
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:20
帖 子:174
专家分:505
注 册:2012-8-27
得分:0 
程序代码:
Private Sub List1_Click()
If Right(List1.Text, 3) = "||>" Then
MsgBox "你选择的是一年级"
ElseIf Right(List1.Text, 3) = "==>" Then
MsgBox "你选择的是二年级"
End If
End Sub

我不明白为什么要根据后面的特殊字符来进行判断,那么如果年级多的话你是否要多找一些特殊字符?
直接判断"—年级"或"一"多好。

Figure out what you like. Try to become the best in the world of it.
2012-12-24 10:46
ymhy12345
Rank: 2
等 级:论坛游民
帖 子:83
专家分:36
注 册:2011-8-27
得分:0 
回复 4楼 Artless
二年级有响应,一年级好像没响应
2012-12-24 11:24
ymhy12345
Rank: 2
等 级:论坛游民
帖 子:83
专家分:36
注 册:2011-8-27
得分:0 
回复 5楼 邵帅
点一年级,根据寻找记事本特殊字符响应事件,方便嘛
2012-12-24 11:29
邵帅
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:20
帖 子:174
专家分:505
注 册:2012-8-27
得分:0 
回复 7楼 ymhy12345
好吧,我不太明白……

Figure out what you like. Try to become the best in the world of it.
2012-12-24 11:32
邵帅
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:20
帖 子:174
专家分:505
注 册:2012-8-27
得分:0 
回复 6楼 ymhy12345
那是因为你的list1.text是"一年级",而没有后面的内容……

Figure out what you like. Try to become the best in the world of it.
2012-12-24 11:33
ymhy12345
Rank: 2
等 级:论坛游民
帖 子:83
专家分:36
注 册:2011-8-27
得分:0 
回复 9楼 邵帅
俺是想检测记事本的特殊字符响应事件
2012-12-24 14:12



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-393108-1-1.html




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

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