vb6.0中把鼠标锁定在我想锁定的位置
我要用VB6.0把鼠标锁定在游戏窗口里面一个固定位置,我要把鼠标移到游戏窗口需要锁定的位置,用VB6.0做个软件用快捷键调用把鼠标锁定了,如果不需要锁定了再调用快捷键解开...
我要用VB6.0把鼠标锁定在游戏窗口里面一个固定位置,我要把鼠标移到游戏窗口需要锁定的位置,用VB6.0做个软件用快捷键调用把鼠标锁定了,如果不需要锁定了再调用快捷键解开鼠标锁定,请问谁知道这个软件该怎么写,给出具体代码
展开
2013-07-29
展开全部
Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim r As RECT
r.Left = 100: r.Top = 100
r.Right = 100: r.Bottom = 100
If KeyAscii = 13 Then ClipCursor r
If KeyAscii = 14 Then ClipCursor ByVal 0&
End Sub
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim r As RECT
r.Left = 100: r.Top = 100
r.Right = 100: r.Bottom = 100
If KeyAscii = 13 Then ClipCursor r
If KeyAscii = 14 Then ClipCursor ByVal 0&
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-29
展开全部
BOOL ClipCursor (RECT *rect);
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-29
展开全部
百度里面有教程,很详细的资料!
自己动手.丰衣足食!
自己动手.丰衣足食!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询