网上有个即时监视键盘鼠标的操作的程序,你在 Private Sub sh_KeyUp(KeyCode As Integer, Shift As Integer) Dim s As String s = KeyCode s = s + CharFromKeyCode(KeyCode) If GetForegroundWindow = Me.hwnd Then ‘这里判断当前得到焦点的控件和你想拦截的控件句柄是否一样就可以了(findwindow,findwindowex) Text2 = Text2 & CharFromKeyCode(KeyCode) End If End Sub
Private Sub sh_KeyUp(KeyCode As Integer, Shift As Integer)
Dim s As String
s = KeyCode
s = s + CharFromKeyCode(KeyCode)
If GetForegroundWindow = Me.hwnd Then ‘这里判断当前得到焦点的控件和你想拦截的控件句柄是否一样就可以了(findwindow,findwindowex)
Text2 = Text2 & CharFromKeyCode(KeyCode)
End If
End Sub
也可以用SendMessage获取文本框内容从而通过对比获取。