在鼠标事件MouseDown中Button参数和Shift参数怎么用？

Question

If Button And vbLeftButton Then
    ' the user presses left button
    ' other predefined constants are:
    ' vbRightButton vbMiddleButton
End IfShift 的用法相同：
vbShiftMask vbCtrlMask vbAltMask 

Answer 1

测试按键状态为什么不用keypress

Answer 2

测试按键状态为什么不用keypress

Answer 3

keydown也好啊,keypress不行的键keydown就可以

Answer 4

在KEYPRESS等事件中也有此参数，它一般是这样的：
这是一段代码你运行一遍就知道了。
private Form_Keypress(忘记了。 )
   if button=1 then msgbox("left") ‘鼠标左键'
   if button=2 then msgbox("right") ‘鼠标右键'
   if button=3 then msgbox("center")‘关于这个好象是左右键'
   if shift=0 then msgbox("NOshift")  ‘SHIFT没按下'
   if shift=1 then msgbox("shift")‘SHIFTR按下'
end sub