Question

vb MouseUp事件

请问 窗体有20个数组command1控件，怎么判断鼠标右击时得到那个控件的index号
是得到鼠标右击时的index值

Answer 1

Private Sub Command1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Print Index
End If
End Sub

Answer 2

在command控件中有个属性，在属性中对index的值进行设置就OK了

Answer 3

Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print Command2.index
End Sub

你明白了吧