请教 鼠标中键的问题

灵芝

Private Sub 主体_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim aaa

Select Case Button

Case acLeftButton

aaa = 1

Case acRightButton

aaa = 2

Case Else

aaa = 3

End Select

MsgBox aaa

End Sub

如果是中键单击,则无消息,要双击中键才击消息框,如何修改??谢谢

wu8313

我想中键是用来滚动的。既然滚动，要至少满足两次以上的键击。所以，两次以上的键击方能触发那个msgbox 吧。