您的位置：程序门 -> vb -> 基础类

提示没有select

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

提示没有select[已结贴,结贴人:lad1984]

发表于：2007-04-29 22:37:35 楼主

我设置了两个控件数组，一个是text1（），另一个是label1（）
同时设置了一个combobox
运行时提示 case "国际级 " 这句没有select
combo1.list（0) = "国际级 "
combo1.list（1) = "国家级 "
combo1.list（2) = "省市级 "
combo1.list（3) = "企业合作 "
select case combo1.text
case " "
for i = 0 to 11
text1（i).visible = false
label1（i + 1).visible = false
sub1.visible = false
next i
case "企业合作 "
for i = 0 to 11
text1（i).visible = true
label1（i + 1).visible = true
sub1.visible = true
case "国际级 "
for i = 0 to 5
text1（i).visible = true
label1（i + 1).visible = true
sub1.visible = true
case "国家级 "
for i = 0 to 5
text1（i).visible = true
label1（i + 1).visible = true
sub1.visible = true
case "省市级 "
for i = 0 to 5
text1（i).visible = true
label1（i + 1).visible = true
sub1.visible = true
end select

发表于：2007-04-29 22:46:241楼得分:20

case "企业合作 "
for i = 0 to 11
text1（i).visible = true
label1（i + 1).visible = true
sub1.visible = true
case "国际级 "
for i = 0 to 5
text1（i).visible = true
label1（i + 1).visible = true
sub1.visible = true
case "国家级 "
for i = 0 to 5
text1（i).visible = true
label1（i + 1).visible = true
sub1.visible = true
case "省市级 "
for i = 0 to 5
text1（i).visible = true
label1（i + 1).visible = true
sub1.visible = true

你这些for循环里都没有next！！！！！！！！！！！！！！！！

加上就好了

发表于：2007-04-29 22:47:152楼得分:20

楼主的for语句从case "企业合作 "开始就没next的
把next加上去再试试

发表于：2007-04-29 22:48:263楼得分:20

for i = 0 to 5
text1（i).visible = true
label1（i + 1).visible = true
sub1.visible = true
next i
养成好习惯！！！，注意程序的缩进，出错好查！！！

发表于：2007-04-30 06:40:254楼得分:0

呵呵。习惯很重要

发表于：2007-04-30 06:48:405楼得分:0

哈哈,是啊,它只有第一个里有next,后面四个都漏了...

发表于：2007-04-30 08:38:236楼得分:0

通常都是类似的问题

其他资讯