Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyP And Shift = vbCtrlMask Then
MsgBox "you press Ctrl + P"
End If
If KeyCode = vbKeyP And Shift = vbShiftMask Then
MsgBox "you press Shift + P"
End IfEnd Sub
If KeyCode = vbKeyP And Shift = vbCtrlMask Then
MsgBox "you press Ctrl + P"
End If
If KeyCode = vbKeyP And Shift = vbShiftMask Then
MsgBox "you press Shift + P"
End IfEnd Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货