7,762
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2005-11-18
- 打赏
- 举报
???????
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then Me.Caption = "you clicked the “↑”"
If KeyCode = vbKeyDown Then Me.Caption = "you clicked the “↓”"
If KeyCode = vbKeyLeft Then Me.Caption = "you clicked the “←”"
If KeyCode = vbKeyRight Then Me.Caption = "you clicked the “→”"
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then Me.Caption = "you clicked the “↑”"
If KeyCode = vbKeyDown Then Me.Caption = "you clicked the “↓”"
If KeyCode = vbKeyLeft Then Me.Caption = "you clicked the “←”"
If KeyCode = vbKeyRight Then Me.Caption = "you clicked the “→”"
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
rainstormmaster 2005-11-18
- 打赏
- 举报
需要用子类实现
