鼠标左键和鼠标右键一起按(vbLeftButton And vbRightButton = 3)根据:常数(按钮) 值 描述 vbLeftButton 1 左按钮按下。 vbRightButton 2 右按钮按下。 vbMiddleButton 4 中间按钮按下。Button只有这三种状态的组合你可以把这个放进工程里试试:Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.Cls Form1.Print ButtonEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Call Form_MouseDownEnd Sub当你按住鼠标左右键时,窗体左上角会显示3因为对每个事件只设置一位,所以无法检测是否同时按下了两个以上按钮。换句话说,mousedown 和 mouseup 一次只能识别一个按钮。注意与此成对照的是,可用 mousemove 事件检测是否同时按下了两个以上按钮。mousemove 还能检测是否按下某个特定的按钮,而不管是否同时还有其它按钮被按下。关于详细信息,请参阅本章后面的“结合 mousemove 使用 button 参数”。可用简单代码指明哪个按钮触发了 mousedown 事件或 mouseup 事件。以下过程对 button 是否等于 1、2 或 4 进行检测:private sub form_mousedown (button as integer, _shift as integer, x as single, y as single)if button = 1 then print "you pressed _the left button."if button = 2 then print "you pressed _the right button."if button = 4 then print "you pressed _the middle button."end sub如果按下多个按钮,visual basic 就会将操作解释为两个或多个独立的 mousedown 事件。它为按下的第一个按钮设置位并在窗体上显示此按钮的信息,然后对下一个按钮完成相同的工作。同样,visual basic 也将两个或多个按钮释放操作解释为独立的 mouseup 事件。当释放已被按下的按钮时,以下过程将显示一条信息: