主题：[讨论]以前从没见过这样用Select Case的，我算是孤陋寡闻了
天天学习
[专家分：4570] 发布于 2009-06-27 16:43:00
例子：在窗体上有三个option，一个button
Private Sub Command1_Click()
[color=red]Select Case True '可以把True换成-1，但不能换成其它非零值来表示True[/color]
Case Option1.Value
Debug.Print "option1 selected"
Case Option2.Value
Debug.Print "option2 selected"
Case Option3.Value
Debug.Print "option3 selected"
Case Else
Debug.Print "no one selected"
End Select
End Sub
没想到还能这么用。以前一直都是像下面这样用的
select case m
case 1
....
case 2
...
end select
特意查了下MSDN：
Select Case testexpression
[Case expressionlist-n
[statements-n]] ...
[Case Else
[elsestatements]]
End Select
其中，testexpression 必要参数。任何数值表达式或字符串表达式。
数值表达式包括了任何其值为数的关键字、变量、常数和运算符的组合...
以前以为只能够使用变量...
回复列表 （共11个回复）
沙发
一江秋水 [专家分：9680] 发布于 2009-06-28 11:23:00
确实，又长了知识
板凳
xuehu90 [专家分：40] 发布于 2009-06-29 19:21:00
这样也行？长见识了！
3 楼
wwc7654321 [专家分：1590] 发布于 2009-07-01 13:16:00
[quote]
Select Case True '可以把True换成-1，但不能换成其它非零值来表示True
Case Option1.Value
Debug.Print "option1 selected"
Case Option2.Value
Debug.Print "option2 selected"
Case Option3.Value
Debug.Print "option3 selected"
Case Else
Debug.Print "no one selected"
End Select
[/quote]
可以用常量是知道的，但谁想得到这样也行。。。。
偶也长见识了
4 楼
mw3943 [专家分：20] 发布于 2009-07-04 19:44:00
有见识了一种新方法
5 楼
shenjinggege [专家分：3260] 发布于 2009-11-21 13:46:00
Select Case "隐藏我"
Case Button1.text
Button1.visible=false
Case Button2.text
Button2.visible=false
Case Button3.text
Button3.visible=false
Case Else
'Button1.visible=false
End Select
现学现用
6 楼
abcvbc [专家分：0] 发布于 2009-11-21 18:19:00
建立数组，效果差不多一样，如：
Open "c:\caidan.txt" For Input As #1
Do While Not EOF(1)
i = i + 1
Line Input #1, st
Form1.dt(i - 1).Text = st
If i > 11 Then
Exit Do
End If
Loop
Close #1
7 楼
guoyong_cy [专家分：3050] 发布于 2009-11-29 14:39:00
select case m
case 1
....
case 2
...
end select
就是 if m=1 then
....
Select Case True
Case Option1.Value
就是if True=Option1.Value then
...
或者说if Option1.Value=True then
...
不会是if Option1.Value=5 then
...因为只有0和-1，不可能是其他的
8 楼
singlion [专家分：690] 发布于 2009-12-08 10:17:00
select case x & "m"
case "am":
debug.print 上午
case "pm":
debug.print "下午"
end select
10 楼
nily999 [专家分：0] 发布于 2010-08-01 20:35:00
[url=http://www.newhotshoes.com]Christian louboutin [/url]
[url=http://www.newhotshoes.com/]christian louboutin sale[/url]
[url=http://www.newhotshoes.com/christian-louboutin-news-2010-c-54.html]christian louboutin shoes[/url]
[url=http://www.newhotshoes.com/]sale christian louboutin[/url]
[url=http://www.usachristianlouboutin.com/]Christian louboutin [/url]
[url=http://www.usachristianlouboutin.com/]christian louboutin discount[/url]
[url=http://www.usachristianlouboutin.com/]Christian Louboutin Pumps[/url]
[url=http://www.newhotshoesaleristian-louboutin-dorsays-c-52.html]Christian Louboutin d'Orsays[/url]
[url=http://www.newhotshoes.com/]Christian Louboutin Boots[/url]
[url=http://www.usachristianlouboutin.com/]Christian Louboutin Pumps[/url]
[url=http://www.newhotshoes.com/christian-louboutin-sandals-c-40.html]Christian Louboutin Sandals[/url]
[url=http://www.newhotshoes.com/christian-louboutin-shoes-c-38.html]Christian Louboutin Shoes[/url]
[url=http://www.usachristianlouboutin.com]Christian Louboutin Slingback[/url]
[url=http://www.newhotshoes.com/christian-louboutin-wedges-c-39.html]Christian Louboutin Wedges[/url]
[url=http://www.newhotshoes.com/giuseppe-zanotti-shoes-c-53.html]Giuseppe Zanotti Shoes[/url]
[url=http://www.usachristianlouboutin.com/jimmy-choo-shoes-c-41.html]Jimmy Choo Shoes[/url]
[url=http://www.newhotshoes.com/manolo-blahnik-c-43.html]Manolo Blahnik[/url]
[url=http://www.newhotshoes.com/manolo-blahnik-boots-c-46.html]Manolo Blahnik Boots[/url]
[url=http://www.newhotshoes.com/manolo-blahnik-slingback-c-47.html]Manolo Blahnik slingback[/url]
[url=http://www.newhotshoes.com/sergio-rossi-c-55.html]Sergio Rossi[/url]
[url=http://www.newhotshoes.com/yves-saint-laurent-c-42.html]Yves Saint Laurent[/url]
[url=http://www.newhotshoes.com/alexander-wang-c-56.html]Alexander Wang [/url]
Why do women love [URL=http://www.usachristianlouboutin.com/]christian louboutin [/URL]PUMPS? Why obsession the world of [URL=http://www.usachristianlouboutin.com]christian louboutin discount[/URL]pumps? Perhaps because christian louboutin shoes shaped women's posture; perhaps because
[URL=http://www.newhotshoes.com]christian louboutin shoes[/URL] given women the magic of rebirth.you may choose christian louboutin!!!!
我来回复
您所在位置：