Question

用VB6.0制作一个 当用户按下回车键时 禁止鼠标移动的程序谢谢了，大神帮忙啊

要求如下 用VB6.0制作一个 当用户按下回车键时 禁止鼠标移动的程序 按下回车键的时候解除 把代码写在下面 谢谢了

Answer 1

干什么？不许干坏事呀！ 我试过了，按回车键禁止鼠标移动，再按回车解除有点不好使，必须焦点移出窗体才有效。 我做了个按回车键禁止鼠标移动，按shift键解除的，希望能帮你 Private Declare Sub ClipCursor Lib "user32" (lpRect As Any) Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Dim i As Integer Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 16 Then ShowCursor 1 ClipCursor 0 End If End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Dim p As RECT ClipCursor p End If End Sub

求采纳