Question

VB中创建了N个数组按钮，如何能够使到点击任何个按钮都能执行同一段代码呢？

比如说，我创建了16个数组按钮,command1(0)~command1(15),然后写了段代码，用单击事件，使到单击这16个按钮任意一个都能执行这段代码？谢谢了

Answer 1

Private Sub Command1_Click(Index As Integer)
'你的代码
End Sub

Answer 2

Private Sub Command1_Click(Index As Integer)
'直接把要执行的代码写在这里就可以了
msgbox('yes here!')
End Sub

Answer 3

Private Sub Command1_Click(Index As Integer)
Dim X As Integer
X = Command1(Index).Index
Select Case X
Case 0
'点击按钮1 的代码
Case 1
'点击按钮2 的代码
Case 2
'点击按钮3 的代码
'.....
Case 15
'点击按钮16 的代码
End Select
End Sub