Question

vb控件数组

我已经建立command 的控件数组，为cmd(1),cmd(2)...cmd(9),那如何编辑每一个的click事件，如单击cmd(1)只让cmd(1)他自己响应click事件.

Answer 1

private sub cmd_click(index as integer)
select case index
case 1
case 2
end select
end sub

Answer 2

Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 1
Msgbox "This is 1"
Case 2
……
End Select
End Sub

当你双击按钮的时候，就会对应进入Command1_Click的编辑界面。
Private Sub Command1_Click(Index As Integer)中，Index为你那些按键数组的Index，通过Select语句就可以自定义每个不同按钮的功能。
例如上例为按cmd(1)时弹出对话框，显示This is 1