VB动态添加的控件数组怎么响应事件?

Private Sub Command_Click(Index As Integer)

'Index是控件属性。可以说是指定代号，就是那个括号里的数(Index)

'点下去之后看看这个command的代号(Index)是多少

Select Case Index '检查代号(Index)是多少

Case 0 '如果代号(Index)是0，

MsgBox "1号" '那就执行代号(Index)为0的按钮控件！(数组从0排起的)

Case 1

MsgBox "2号"

Case 2

MsgBox "3号"

Case 3

MsgBox "4号 "

Case 4

MsgBox "5号 "

……中间省略……

Case 9

MsgBox "10号 "

End Select '把正确的都选出来了，任务结束

End Sub

你是在vb中，这个应该不是很难，你双击就可以进入事件过程进行代码得编写，如果你编写号了又没有反应得话，可能是你得代码有问题，或者是该控件没有这些事件，救你上面得情况来看，可能是你得代码有问题。另外，不必每个事件都写代码，你可以建立公共过程，或者直接调用其他控件的某个事件，如直接使用button1_click等。

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Select Case Button

Case 1

Label1.Caption = " 左"

Case 2

Label1.Caption = " 右"

Case 4

Label1.Caption = " 中"

End Select

End Sub

button 返回一个整数，用来标识该事件的产生是按下 ( MouseDown ) 或者释放 ( MouseUp ) 按钮引起的。button 参数是具有相应于左按钮（位 0），右按钮（位 1），以及中间按钮（位 2）的一个位字段。这些位的值分别等于 1，2，和 4。其中仅有一位被设置，指示出引起该事件的那个按钮。

---