VB中如何屏蔽回车和空格键

[binghe7]

一个form内只有一个command按钮，默认焦点，现在按回车和空格键，或者鼠标点击都可以进入下一个画面，
但我需要屏蔽调回车和空格键的作用，如何实现，求助。

[binghe7]

~~~???anybody here??

[viena]

用Command1_MouseDown事件+Command1_MouseUp事件代替Command1_Click事件~

[griefforyou]

把这个command的tabstop 设为false,然后再加一个command，把他放到窗口外面。

[binghe7]

谢谢，不过前提条件，这个form内的东西是不能改变的，只能靠程序实现

[mahua2003]

不全，但是希望对你有所帮助！
Private Sub Command1_Click()

MsgBox "The next form!"
End Sub



Private Sub Command1_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeySpace Then
KeyAscii = 0
MsgBox "Can't not use Space key"
End If

End Sub

[binghe7]

我是这样做的
Private Sub Command1_KeyDown(KeyCode As Integer,Shift As Integer)

If KeyCode = vbKeySpace Or KeyCode = vbKeyretrun Then
KeyCode = 0
End If

End Sub

另外有一个函数Private Sub Command1_Click()

现在问题是按空格键进入Command1_KeyDown函数，空格操作可以实现，但如果按回车键程序直接进入Command1_Click函数，而不进入Command1_KeyDown函数函数，回车无法屏蔽

[闲情漫步]

是啊,我的水平有限,我做出来的也是屏蔽空格键,但是回车键我屏蔽不掉,因为按下回车键后似乎不触发keypress事件,keyup keydown也是如此.
可不可以做一个不可见的控件,让其得到焦点,并用其keypress事件来判断按下的键,如果是回车或是空格,就不触发任何事件.

[binghe7]

在线等待，不可以设置隐藏控件的方法让焦点移开，还有好办法吗，指教

[xmuyyd]

我试了一下也是这样，三个事件都无法捕捉到回车键。关注ing.

[binghe7]

问题就是在这里啊，痛苦~就命啊~~~^_^

[taosin]

试一下用钩子技术，这里是截取Combo1的WM_MOUSEMOVE的消息 ，改一下截取Command1 的vbKeySpace和vbKeyReturn的消息就行了：
'以下程式在module1.bas

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _

(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _

(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _

(ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, _

ByVal wParam As Long, ByVal lParam As Long) As Long



Public Const GWL_WNDPROC = (-4)

Public Const WM_MOUSEMOVE = &H200

Public Const WM_RBUTTONDOWN = &H204





Public preWinProc As Long



Public Function wndproc(ByVal hwnd As Long, ByVal Msg As Long, _

ByVal wParam As Long, ByVal lParam As Long) As Long

'以下程式会截取mouse move，处理完後，再将之送往原来的Window Procedure

If Msg = WM_MOUSEMOVE Then

'请处理Mouse Move的动作

Debug.print "Combol Mouse Move "

End if

'将之送往原来的Window Procedure

wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)

End Function



'以下程式在Form1, form1中有一Combo1

Sub Form_Load()

Dim ret As Long

'记录原本的Window Procedure的位址

preWinProc = GetWindowLong(Combo1.hwnd, GWL_WNDPROC)

'设定Combo1的window Procedure到wndproc

ret = SetWindowLong(Combo1.hwnd, GWL_WNDPROC, AddressOf wndproc)

End Sub



Private Sub Form_Unload(Cancel As Integer)

Dim ret As Long

'取消Message的截取，而使之又只送往原来的Window Procedure

ret = SetWindowLong(Combo1.hwnd, GWL_WNDPROC, preWinProc)

End Sub

[Zygodactyous]

在按钮的keypress事件中处理
Private Sub Comman1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeySpace Then
KeyAscii = 0
Exit Sub
End If
End Sub

[binghe7]

楼上的没看清楚，现在是回车键没用，不是空格
楼上的楼上的，能不能找点简单介绍钩子的东东来看，你写的偶看不明白

[binghe7]

顶下，都吃饭回来了八