vb建立一个label的控件数组 点击label（1） 得到一个结果 点击label（2） 得到另一个结果 想实现这个功能
但现在的情况是label控件数组的click事件是针对整个控件数组而言的 也就是label_click 这样的话不管我点击哪个label（）显示的都是一个效果 而我希望点击不同的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
好了。自己写的。希望对你有帮助
Select Case Index
Case 0
你的程序
Case 1
你的程序
Case 2
你的程序
....
End Select
End Sub
static Flag as boolen
flag=not(falg)
if flag=true the
'事件1
else then
'事件2
end if
end sub
end sub
vb建立一个label的控件数组 点击label(1) 得到一个结果 点击label(2...
建立一个Label()数组，比如是Label1()吧，在程序上建立一个Label1然后把它复制再粘贴就会提示是否建立数组，就点是，我建立了一个Label1数组，该数组中包含3个Label控件，按你说的代码是这样写的 第一种 用 Select Case 代码如下 Private Sub Label1_Click(Index As Integer)Select Case Index C...
VB的label控件数组问题,内详谢谢!
Private Sub Label1_Click(Index As Integer)If Index = List1 Then Label1(Index).Caption = "好"End Sub 这样绝对可以……
vb题,请问里面的+1 、2、3是什么意思来的
方法，先创建一个label1，然后复制，会提示你是否创建控件数组。确定创建数组后，那么Label1控件会变成：Label1(0),Label1(1)...Label1(n)如果不是数组的，那么就是这样的：Label1,Label2...Label(n)这样的。也就是说和数组一样，只不过前面是控件名，后面是数组，组成了控件数组。从题目来看，...
vb中用变量表示控件名
回答：Dim i As Integer For i = 1 To 10 '多少个你自己定 Load Label1(i) Label1(i).Caption = i '属性自己定 Label1(i).Left = Label1(i - 1).Left + 2000 '属性自己定 Label1(i).Visible = True '设置为可视 Next i
EXCEL VBA 自定义窗体中标签label属性的调用
vba中没有控件数组的功能，只能用类模块了。首先在窗体中粘贴以下代码 Dim col As New CollectionPrivate Sub UserForm_Initialize()Dim I As IntegerDim myc As cmdsFor I = 1 To 12 '有多少个label就改成to 多少Set myc = New cmdsSet myc.cmd = Me.Controls("Label" & I)col.Add myc...
vb下标越界问题。在线等
照你代码看，你建了一个label控件数组，请确认你这个数组个数是否有m+1个元素。如果仅仅解决下标问题，可以改变for循环的m的值，具体可以看你label控件数组的各个成员的index属性的值，最大的就是m的值了。不过 1.如果你想实现一个label向上移动，当到达顶部后向下，到达底部后向上移动，可以这样，你...
vb6种用语句创建label数组控件
首先添加一个label，在属性里把index设为0 添加一个按钮 加入代码 For i = 1 To 2 Load Label1(i)Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width + 100 Label1(i).Visible = True Next
VBA里有多个 LABEL,怎样用语句得到当前LABEL名称的编号
'在窗体上添加一个标签，默认名Label1，然后对着它点右键-复制，再在窗体空白处点右键-粘贴-是，根据需要多次粘贴，得到一个控件数组。然后将代码复制到代码窗口试试。Private Sub Label1_Click(Index As Integer)For I = 0 To Label1.Count - 1 Label1(I).BackColor = &H8000000F Next Label1...
VB怎么用变量显示label控件的名称
这个问题最标准、最官方的方法，是把你这10个Label弄成控件数组，比如是L(0),L(1),L(2)...L(9)，然后：For i = 0 To 9 L(i).Caption = rs("hkf")Next i关于控件数组的问题请自己查教材或百度。如果坚持不用控件数组，则可以这样：For i = 1 To 10 Controls("L" & i).Ca...
VB关于字符截取的问题
Private Sub Command1_Click()用label控件数组,完成：窗体内放置一个label控件,设置index为零.For i = 1 To Len(Text1.Text)If i >= 2 Then Load Label1(i - 1) \\'动态增加所需要的label Label1(i - 1).Visible = True \\'Label1(i - 1).Top = Label1(i - 2).Top + 200...
