Office中国论坛/Access中国论坛

标题: 请教鼠标中键的问题 [打印本页]

作者: 灵芝 时间: 2005-3-8 15:34
标题: 请教鼠标中键的问题
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 时间: 2005-3-9 06:07
我想中键是用来滚动的。既然滚动，要至少满足两次以上的键击。所以，两次以上的键击方能触发那个msgbox 吧。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)