网站首页 科普专区 > 正文
想必现在有很多小伙伴对于VB中鼠标指针反转方面的知识都比较想要了解，那么今天小好小编就为大家收集了一些关于VB中鼠标指针反转方面的知识分享给大家，希望大家会喜欢哦。
1、呵呵，学习下，基本上我认为很难，但是我有个思路，说出来同楼主研究下，在窗体上画一个图片，图片的样子就是鼠标指针的样子，然后通过鼠标移动事件来写代码。如果鼠标在窗体上移动的话。(x
2、Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
3、Label1 = x & ": " & y
4、版权归果芝士细回答大网站或原各作者所专有
5、Command1.Left = Form1.Width - x
6、Command1.Top = Form1.Height - y
7、到可命无料及金改美采矿养住。
8、兄弟啊，为你这个问题我想了一个晚上，突然在半夜睡觉的梦里想出了一个解决方法，今天试了试。成了，呵呵，保证和你的题目是一样的。代码有点多，如果不懂HI我吧。。。
9、要过所前又利果象员，口感构精适。
10、Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
11、Private Const MOUSEEVENTF_MOVE = &H1 'Mouse move
12、Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 'move 坐标
13、Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long '移动
14、Private Type POINTAPI '定义点(Point)结构
15、x As Long '点在X坐标(横坐标)上的坐标值
16、y As Long '点在Y坐标(纵坐标)上的坐标值
17、End Type
18、Dim fafa1x As Long
19、Dim fafa1y As Long
20、Dim fafa2x As Long
21、Dim fafa2y As Long
22、Dim fa1 As Boolean
23、Dim fa2 As Boolean
24、Private Sub Form_Click()
25、Timer1.Interval = 2 '设置时钟可以自己调，根据你的移动速度来
26、End Sub
27、Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
28、fa2 = True '是否在窗体上移动
29、If fa1 = True Then '新坐标
30、Dim dl As Long
31、Dim mypoint As POINTAPI
32、dl& = GetCursorPos(mypoint)
33、fafa2x = mypoint.x
34、fafa2y = mypoint.y
35、SetCursorPos fafa1x + (fafa1x - fafa2x) * 2, fafa1y + (fafa1y - fafa2y) * 2 '反向移动
36、fa2 = False '防止鼠标跳出窗体后出错
37、fa1 = False '开始计时器
38、End If
39、End Sub
40、Private Sub Timer1_Timer()
41、If fa1 = False And fa2 = True Then
42、Dim dl As Long
43、Dim mypoint As POINTAPI
44、dl& = GetCursorPos(mypoint) '调用函数，获取屏幕鼠标坐标
45、fafa1x = mypoint.x
46、fafa1y = mypoint.y
47、fa1 = True '开始读取新坐标
48、End If
49、Label1 = mypoint.x & " : " & mypoint.y
50、End Sub
51、End Sub
本文到此结束，希望对大家有所帮助。
版权说明： 本文由用户上传，如有侵权请联系删除！
猜你喜欢：
- 2022-09-20 一个人在心里不重要的说说（在别人心里不重要的说说）
- 2022-09-20 治国有常而利民为本是出自于哪里（治国有常而利民为本出自哪里）
- 2022-09-20 人家说我是海王什么意思（别人说你是海王什么意思）
- 2022-09-20 新时代潮流中涉及家国情怀的作文题目（家国情怀的作文题目）
- 2022-09-20 螺旋果冻干什么用的（螺旋果冻用来干嘛）
- 2022-09-20 中国网络安全大赛是什么（全国网络安全大赛是什么）
- 2022-09-20 你就是我最美的相遇是什么歌（你是我最美的相遇的歌词是什么）
- 2022-09-20 网上卖的茶烟是真的吗是假的（网上卖的茶烟是真的吗）
最新文章：
- 2023-07-02 怎样挑选新鲜的猪肝?（怎么挑选新鲜猪肝 挑选新鲜猪肝的小技巧）
- 2023-07-02 木地板都有哪些种类（木地板的种类有哪些）
- 2023-07-02 白蜡木家具的优缺点（松木家具的优缺点）
- 2023-07-02 怎么清洗窗帘布上的污垢（怎么清洗窗帘）
- 2023-07-02 世界上最可爱的小仓鼠的样子（可爱小仓鼠的种类）
- 2023-07-02 小猫拉不出来屎怎么办（小猫拉不出屎怎么办）
- 2023-07-02 新飞小冰箱耗电量一天多少度（小冰箱耗电量一天多少度）
- 2023-07-02 公司注销工业房产怎么办手续（公司注销工业房产怎么办）
- 2023-07-02 凤凰层到底好还是不好（凤凰层是哪一层）
- 2023-07-02 马桶宽度空间留多少（马桶两边的空间大小是多少）
- 2023-07-02 如何训练猫咪小便（如何训练猫大小便）
- 2023-07-02 卫生间吊顶防潮层做法图集（卫生间吊顶方法是什么）
- 2023-07-02 狗狗为什么总是流口水怎么办（狗狗为什么爱流口水）
- 2023-07-02 卧室窗户漏水由谁负责维修（卧室窗户漏风怎么办）
- 2023-07-02 世界名猫大全（世界名猫你知道几种）
- 2023-07-02 applewatchseries7和6对比（apple watch series 7和6的区别）