这个变量语句应该怎什写？

Question

label1(index).Visible=false 只解决了label的问题，Case 的变量语句又如何写呢？

Answer 1

To sundayboys(sunboy):没来晚。

Answer 2

xyjdn(项有建^_^)　你真意思case 什么变量？

Answer 3

如果想将label1中所有的Visible都设为false可用下面的代码：
dim TempControl as Control
for each TempControl in label1
    TempControl.Visible=false
next TempControl如果只想设置0-2：
Dim I as integer
for I=0 to 2
    label1(I).Visible=false 
next I

Answer 4

To wbdx(碳离子):case 0,case 1,case 2不能用变量表示吗？

Answer 5

我的意思是；不但label用变量表示，而且case也用变量表示.一共有两个变量。

Answer 6

你是这个意思if index=0 then..或者 switch

Answer 7

我的意思是单独触发某一事件，在case0中触发Label(0)事件,在case01中触发Label(1)事件,而不是一次触发所有事件
Dim I as integer
for I=0 to 2
    label1(I).Visible=false 
next I
.

Answer 8

那么这样不就得了 label1(index).Visible=false 
把 select case ...end select 去掉不就行了吗

Answer 9

select case index
    case 0,1,2
       label1(index).visible=false
end select 
你想要的是这个吗？

Answer 10

代码
Static i As Integer
For i = 0 To 8
Select Case Index
    Case 0, 1, 2, 3, 4, 5, 6, 7, 8
      Label1(i).Visible = False
End Select
Next i
一次触发所有事件Label1(0).Visible = False到Label1(8).Visible = False.镌就是说所有的Label都看不了，
Select Case Index
Case 0
Label1(0).Visible = FalseCase 1
Label1(1).Visible = FalseCase 2
Label1(2).Visible = False
End Select
每次使得有一个Label看不见，但其他的Label却是可见的。

Answer 11

已经说的很清楚了
这人的脑子不转弯（Select Case Index
Case 0
Label1(0).Visible = FalseCase 1
Label1(1).Visible = FalseCase 2
Label1(2).Visible = False
End Select）等效于 label1(index).visible=false
(For i = 0 To 8
Select Case Index
    Case 0, 1, 2, 3, 4, 5, 6, 7, 8
      Label1(i).Visible = False
End Select
Next i)等效于 
for i=0 to 8
    label1(i).visible=fasle
next i
你要的效果 假如click 事件,单击谁谁不可见private sub label1_click(byval index as long)
for i=0 to 8
   if i=index then
      label1(i)visible=fasle
   else
      label1(i)visible=true
   end if
next iend sub