能不能用vb写一个小程序,把鼠标的移动映射到键盘按键?

也就是鼠标移动哪个方向,就相当于对应按下键盘哪个键另外,要求在全局状态下实现,也就是把窗体最小化之后,仍然有效。例如:鼠标向上移动,映射到键盘上的↑键鼠标向下移动,映射到... 也就是鼠标移动哪个方向,就相当于对应按下键盘哪个键
另外,要求在全局状态下实现,也就是把窗体最小化之后,仍然有效。
例如:
鼠标向上移动,映射到键盘上的↑键
鼠标向下移动,映射到键盘上的↓键
鼠标向左移动,映射到键盘上的←键
鼠标向右移动,映射到键盘上的→键
展开
 我来答
lidajiangzw
2011-11-23 · TA获得超过903个赞
知道小有建树答主
回答量:774
采纳率:0%
帮助的人:715万
展开全部

'在窗口添加个  Timer 控件 ,

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI

x As Long

y As Long

End Type

Dim Tx As Long, Ty As Long, P As POINTAPI

Sub Form_Load()

Timer1.Enabled = True

Timer1.Interval = 100

GetCursorPos P

Tx = P.x

Ty = P.y

End Sub

Private Sub Timer1_Timer()

Dim ttx, tty

GetCursorPos P

ttx = Tx - P.x

tty = Ty - P.y

 If ttx > 0 Then

   SendKeys "{LEFT}"

 ElseIf ttx < 0 Then

   SendKeys "{RIGHT}"

 End If

 If tty > 0 Then

    SendKeys "{UP}"

 ElseIf tty < 0 Then

    SendKeys "{down}"

 End If

Tx = P.x

Ty = P.y

End Sub

xdezlqz
2011-11-22 · TA获得超过153个赞
知道小有建树答主
回答量:263
采纳率:0%
帮助的人:197万
展开全部
这个要调用系统API函数实现,一个函数用于获取系统键盘按键,一个用于移动鼠标。
你得具体在网上查这两个函数。我以前做过,现在源代码丢了。提示你找找看!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zx001z7d53
2011-11-22 · TA获得超过2万个赞
知道大有可为答主
回答量:2.4万
采纳率:52%
帮助的人:5643万
展开全部
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式