To zyl910 他的问题是:访问鼠标的X,Y轴单稳态开关INT33也无法取得啊!别说VC了,汇编里用这个中断都不能取得他想要的东西。除非自己编写鼠标驱动
up ---------------------------- 春天不是读书天 夏日炎炎正好眠 秋高气爽踢球去 卖了书本好过年 :D ------------------------------- 海纳百川,有容乃大; 壁立千仞,无欲则刚。
DirectInput 可以获得鼠标的绝对位置和相对位置。
用此程序可指定鼠标在某一位置是产生事件 Private Sub Form_Load() Dim p As POINTAPI Call GetCursorPos(p) ' ( p.x, p.y )为鼠标位置 Text1.Text = p.X Text2.Text = p.Y End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim p As POINTAPI Call GetCursorPos(p) ' ( p.x, p.y )为鼠标位置 Text1.Text = p.X Text2.Text = p.Y If p.X > 250 Then Unload Me End Sub
处理鼠标中断——0x33
他的问题是:访问鼠标的X,Y轴单稳态开关INT33也无法取得啊!别说VC了,汇编里用这个中断都不能取得他想要的东西。除非自己编写鼠标驱动
----------------------------
春天不是读书天
夏日炎炎正好眠
秋高气爽踢球去
卖了书本好过年 :D
-------------------------------
海纳百川,有容乃大;
壁立千仞,无欲则刚。
Private Sub Form_Load()
Dim p As POINTAPI
Call GetCursorPos(p)
' ( p.x, p.y )为鼠标位置
Text1.Text = p.X
Text2.Text = p.Y
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim p As POINTAPI
Call GetCursorPos(p)
' ( p.x, p.y )为鼠标位置
Text1.Text = p.X
Text2.Text = p.Y
If p.X > 250 Then Unload Me
End Sub