vb控件数组

来源:百度知道 编辑:UC知道 时间:2024/05/13 06:29:06
我已经建立command 的控件数组,为cmd(1),cmd(2)...cmd(9),那如何编辑每一个的click事件,如单击cmd(1)只让cmd(1)他自己响应click事件.

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

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