Question

VBA中UserForm_Mouseup函数，这几句什么意思？

Private Sub UserForm_Mouseup(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 And Shift = 7 Then
Cmd0.Visible = True
End If
End Sub

Answer 1

1）首先判断当前所发生的事件。从当前事件的名称就可以判断出来：UserForm是用户窗体的意思，Mouseup是鼠标放开的意思，所以这个事件是：当点击用户窗体并放开鼠标时所产生的事件
2）再来了解下事件中的几个参数
1、Button 整型值，指鼠标被按下时的产生的值。左键按下为1，右键为2，中间键为4

2、Shift 整型值，功能键，指键盘上按下Shift、Ctrl和Alt键的产生的值。Shift为1，Ctrl为2，Alt为4，Shift+Ctrl为3，Shift+Alt为5，Ctrl+Alt为6，Shift+Ctrl+Alt为7
3、X 单精度型值，鼠标单击窗体所在的横向位置值

4、Y 单精度型值，鼠标单击窗体所在的纵向位置值

3）分析事件的代码
代码中用If…Then判断句，用来判断条件成立时所执行的相关语句，而这个条件就是：
Button=2 And Shift=7
我们可以清楚的看出这个条件就是：点击窗体并在放开鼠标之前，如果鼠标右键与Shift、Ctr和Alt三个功能键都被按下，那么执行条件中的语句：Cmd0.Visible = True
显然，Cmd0是一个具有Visible属性的控件名，所执行的代码是将Cmd0的Visible（可见）属性设置成True。

Answer 2

这是指窗体上，当鼠标弹起时，触发的事件。

Answer 3

If Button = 2 And Shift = 7 Then '如果按住Ctrl+Alt+Shift三键，松开鼠标右键
Cmd0.Visible = True '隐藏Cmd0按钮
End If

Answer 4

用户端在鼠标弹起时候的窗体提动作

Answer 5

Private Sub UserForm_Mouseup(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)‘鼠标在UserForm窗口松开时的事件
If Button = 2 And Shift = 7 Then '如果按住Ctrl + Alt + Shift键和鼠标右键
Cmd0.Visible = True '原来的Cmd0按钮可能是隐藏，此语句使它可见。
End If
End Sub