标题:[求助]让人发疯的select case 语句
只看楼主
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
结帖率:100%
 问题点数:0 回复次数:7 
[求助]让人发疯的select case 语句
Private Sub Command2_Click()
MsgBox comm
Select Case comm
Case comm = 11
Call Command11_Click
Case comm = 12
MsgBox comm
Call Command12_Click
Case comm = 13
Call Command13_Click
Case comm = 14
Call Command14_Click
Case comm = 15
Call Command15_Click
Case comm = 16
Call Command16_Click
End Select
End Sub

我都怀疑我的VB6是不是有毛病了,我的VB6中毒了!
我上面的cass条件有地方写错了没有啊?
我感觉是没有错误啊。但它只会跳出一个msgbox提示12(如果是12应该能跳出二个才对啊!)
comm是整数型变量。
所有的我要求根据数据来自动执行的点击按钮的过程都不操作!
我狂晕!!!!

[此贴子已经被作者于2006-10-18 21:05:41编辑过]

搜索更多相关主题的帖子: case select 语句 
2006-10-18 21:04
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
得分:0 
看来我真的是老了,我记的语言太多了,已经搞不清楚了。
VB6中的case用法是这样的:
Private Sub Command2_Click()
Select Case comm
Case 11
Call Command11_Click
Case 12
Call Command12_Click
Case 13
Call Command13_Click
Case 14
Call Command14_Click
Case 15
Call Command15_Click
Case 16
Call Command16_Click
End Select
End Sub

[此贴子已经被作者于2006-10-18 21:12:00编辑过]


2006-10-18 21:11
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
....
Select Case Com
Case Is = 11
...
Case Is = 12
End Select

我的msn: myfend@
2006-10-18 21:14
Alex0451
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2006-10-16
得分:0 
个人认为你程序中的第2行,MSGBOX 没有返回值!怎么用SELECT CASE?
对不对我也不知道,我也刚学!呵呵。。。
大家多多指教啊!
2006-10-19 15:12
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
不是的..comm可能是他之前求得的一个变量...

我的msn: myfend@
2006-10-19 17:34
Alex0451
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2006-10-16
得分:0 
那就是可能没用到IS?
2006-10-19 21:00
chenwind17
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2006-9-25
得分:0 

楼主已经找到原因了,他把C和VB结合了,呵呵

2006-10-20 08:51
dragonfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:1024
专家分:0
注 册:2006-3-20
得分:0 
呵呵C和VB在多分支选择上可有很大区别!
//VB:
select case n
case n1
...
case n2
...
case else
...
end select

//C:
switch(n)
{
case n1:
...
break;
case n2:
...
break;
default:
...
}

[此贴子已经被作者于2006-10-20 13:47:20编辑过]


2006-10-20 10:35



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




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

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