46如何获知其它的按键:
建一个窗体,拷如下代码至窗体代码区即可
Option ExplicitPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox KeyCode
End SubPrivate Sub Form_Load()
Me.KeyPreview = True
End Sub
建一个窗体,拷如下代码至窗体代码区即可
Option ExplicitPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox KeyCode
End SubPrivate Sub Form_Load()
Me.KeyPreview = True
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货