'文本框键盘按键事件-回车
Private Sub TextBox_Pwd_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
MsgBox "OK"
End If
End Sub
vba键盘事件
最新推荐文章于 2024-08-19 14:41:36 发布
'文本框键盘按键事件-回车
Private Sub TextBox_Pwd_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
MsgBox "OK"
End If
End Sub