Question

vb建立一个label的控件数组 点击label（1） 得到一个结果 点击label（2） 得到另一个结果 想实现这个功能

但现在的情况是label控件数组的click事件是针对整个控件数组而言的 也就是label_click 这样的话不管我点击哪个label（）显示的都是一个效果 而我希望点击不同的label有不同的效果 希望高人指教

Answer 1

建立一个Label()数组，比如是Label1()吧，在程序上建立一个Label1然后把它复制再粘贴就会提示是否建立数组，就点是，我建立了一个Label1数组，该数组中包含3个Label控件，按你说的代码是这样写的
第一种 用 Select Case
代码如下
Private Sub Label1_Click(Index As Integer)
Select Case Index
Case 0
MsgBox "第一个被点击"
Case 1
MsgBox "第二个被点击"
Case 2
MsgBox "第三个被点击"
End Select
End Sub
这种方法是很简单的，还有另外一种用if 判断

Private Sub Label1_Click(Index As Integer)
If Index = 0 Then
MsgBox "第一个被点击"
End If
If Index = 1 Then
MsgBox "第二个被点击"
End If
If Index = 2 Then
MsgBox "第三个被点击"
End If

End Sub

好了。自己写的。希望对你有帮助

Answer 2

Private Sub Label1_Click(Index As Integer)
Select Case Index
Case 0
你的程序
Case 1
你的程序
Case 2
你的程序
....
End Select
End Sub

Answer 3

private sub label1_click()
static Flag as boolen
flag=not(falg)
if flag=true the
'事件1
else then
'事件2
end if
end sub

Answer 4

Private Sub Label1(0)_Click

end sub