第54集 窗体事件
254、 窗体初始化事件
当窗体出现之前运行的程序。常用语变量初始化等设置。
Private Sub UserForm_Initialize()
MsgBox Me.Caption
End Sub
255、 窗体关闭前的事件
Cancel:值为>0的值时禁止关闭动作的发生
CloseMode:关闭的模式,0点击关闭按钮,1是使用unload关闭。
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = 1
End Sub
256、 窗体的单击和双击事件
Private Sub UserForm_Click()
Unload Me
End Sub
257、 键盘事件
KeyCode:是指按下键的键标号,一键一标号
Shift :是按下shift(值为1) or ctrl(值为2)或alt(值为3)
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) '按下键时触发
’ MsgBox KeyCode
If KeyCode = 65 And Shift = 2 Then
MsgBox “按下了Ctrl+A组合键”
End If
End Sub
Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) '按下键后起来时触发
MsgBox “KeyCode:”