- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]Select Case语句怎么表达包含 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161409)
-- 发布时间：2021/3/16 17:31:00
-- [求助]Select Case语句怎么表达包含
用TopicBar任务栏控件，我想把任务名称包含 “xm"字符的所有任务写一类代码，如果用if语句if e.link.name.Contains("xm") then很容易表达，用Select Case语句能表达吗，怎么表达？
Select Case e.Link.Name
Case "xm"Case "yd"
\'在此加入相应的代码
Case "删除"
\'在此加入相应的代码
Case "主页"
\'在此加入相应的代码
End Select
-- 发布时间：2021/3/16 17:37:00
--
dim xx as string
if e.link.name.Contains("xm") then
xx="xm"
elseif e.link.name.Contains("yd") then
xx="yd"
elseif e.link.name.Contains("删除") then
xx="删除"
elseif e.link.name.Contains("主页") then
xx="主页"
else
xx="出错"
end if
Select Case xx
Case "xm"Case "yd"
\'在此加入相应的代码
Case "删除"
\'在此加入相应的代码
Case "主页"
\'在此加入相应的代码
End Select
[此贴子已经被作者于2021/3/16 17:43:48编辑过]
-- 发布时间：2021/3/16 17:40:00
--
处理不了，还是使用if e.link.name.Contains("xm") then吧
-- 发布时间：2021/3/16 17:46:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试topicbar.rar |
测试了，为何没有成功
-- 发布时间：2021/3/16 18:03:00
--
好的，谢谢！