怎样屏蔽Ctrl+Enter键

tanghuawei 2006-12-05 09:44:32

如题，请各位帮忙！

...全文

187 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

zzyong00 2006-12-05

打赏
举报

用HOOK吧，窗口有焦点用上面代码才行

tanghuawei 2006-12-05

打赏
举报

这样不好啊，如果我按紧Ctrl或者Enter它照样没屏蔽。

dingyanwei 2006-12-05

打赏
举报

这回是屏蔽了

dingyanwei 2006-12-05

打赏
举报

Option Explicit
Dim ctrl_press As Boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 17 Then ctrl_press = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 10 And ctrl_press Then
KeyAscii = False
ctrl_press = False
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 17 Then ctrl_press = False
End Sub

tanghuawei 2006-12-05

打赏
举报

不行，我是按照你的方法复制过去的，还是不能屏蔽，我的是XP2

dingyanwei 2006-12-05

打赏
举报

KeyAscii = 10 不是 13

dingyanwei 2006-12-05

打赏
举报

我试过了,就是在xp下,没有问题啊

chenhui530 2006-12-05

打赏
举报

hook key

tanghuawei 2006-12-05

打赏
举报

XP,2楼的方法不行！

dingyanwei 2006-12-05

打赏
举报

dim ctrl_press as boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 17 Then ctrl_press = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 10 And ctrl_press Then MsgBox "you press ctrl+enter"
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 17 Then ctrl_press = False
End Sub