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

'在窗口添加个拍粗  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

鼠桐闹运标拖拽。

1、进入手机小程序中选择金山文档。

2、使用鼠标在斜线表的一个角点下，然后按住鼠标不放向另一个角移动即可拖出弯核一条局梁线，到另一个角时放开。

3、即可使用实现左右移动 *** 作。

楼主提问的水平很高啊，题目的要求都没有，如何回答。。。冲败老

相关类都在

import java.awt.*

import javax.swing.*

动作事件相关类在import java.awt.event.*中，在代码头import就可以看了

给一个相关的代码吧，包括所有的鼠标事件。

下面代码包括

按下，释放，进入区域，离开区域，点击 这5个事件

鼠标的相关事件会在窗口上方的文本区显示。。。

import java.awt.*

import javax.swing.*

import java.awt.event.*

public class TestMouseEvent extends JFrame implements MouseListener{

JPanel jp = new JPanel()

JTextField jtf = new JTextField()

public TestMouseEvent(){

setTitle("Mouse Event")

getContentPane().add(jtf,BorderLayout.NORTH)

getContentPane().add(jp,BorderLayout.CENTER)

jp.addMouseListener(this)

}

public static void main(String[] args){

TestMouseEvent frame = new TestMouseEvent()

frame.setSize(200,200)

frame.setVisible(true)

frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE)

}

public void mousePressed(MouseEvent e){

int x = e.getX()

int y = e.getY()

String s = "鼠标在坐标"+"("+x+","+y+")"+"出按下"

jtf.setText(s)

}

public void mouseReleased(MouseEvent e){

int x = e.getX()

int y = e.getY()

String s = "鼠标在坐标"+"("+x+","+y+")"枯雹+"出释散升放"

jtf.setText(s)

}

public void mouseClicked(MouseEvent e){

int x = e.getX()

int y = e.getY()

String s = "鼠标在坐标"+"("+x+","+y+")"+"出点击"

jtf.setText(s)

}

public void mouseEntered(MouseEvent e){

int x = e.getX()

int y = e.getY()

String s = "鼠标在坐标"+"("+x+","+y+")"+"出进入"

jtf.setText(s)

}

public void mouseExited(MouseEvent e){

int x = e.getX()

int y = e.getY()

String s = "鼠标在坐标"+"("+x+","+y+")"+"出离开"

jtf.setText(s)

}

}

---