这些参数值哪里找的？我在VB的索引里找不到么！

在msdn里看到/..

Private Sub Command1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
Call RMouseDown
End If
End Sub
Private Function RMouseDown()
Command1(Index).Caption = "!"
End Function

和Private Sub Command1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
Command1(Index).Caption = "!"
End If
End Sub
有什么区别阿？为什么效果会是不一样的？（前一个无论在什么地方按右键都是第一个command1(1)显示“！”，后一个则正常。）

Private Sub Command1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
Call RMouseDown(Index)
End If
End Sub

Private Sub RMouseDown(Byval ind As Integer) '因为不返回值.所以应该用Sub,而不是Function , 加个参数设置Index
Command1(Ind).Caption = "!"
End Function

用 SHIFT 参数判断是否按下了 SHIFT、CTRL 和 ALT 键，以及各种组合（如果存在）。
如果按 SHIFT 键，则 shift 为 1；
如果按 CTRL 键，则 shift 为 2；
如果按 ALT 键，则 shift 为 4。
应使用这些键值的总和来判断这些组合。
如，同时按下 SHIFT 和 ALT 键时 shift 等于 5 (1 + 4)。


列出这些值和常数：
[QUOTE]
二进制值 十进制值 常数 意义
001 1 vbShiftMask 按 SHIFT 键。
010 2 vbCtrlMask 按 CTRL 键。
100 4 vbAltMask 按 ALT 键。
011 3 vbShiftMask + vbCtrlMask 按 SHIFT 键和 CTRL 键。
101 5 vbShiftMask + vbAltMask 按 SHIFT 键和 ALT 键。
110 6 vbCtrlMask + vbAltMask 按 CTRL 键和 ALT 键。
111 7 vbCtrlMask + vbAltMask + vbShiftMask 按 SHIFT、CTRL 和 ALT 键。
[/QUOTE]
其实你可以发现 它们就是三位二进制的组合状态，三个二进制位依次代表（从高到低）：ALT CTRL SHIFT

多谢各位，此类问题已经解决，下次开新贴问别的问题，还有劳各位！！！一鞠躬