網(wǎng)站首頁 科普專區(qū) > 正文
想必現(xiàn)在有很多小伙伴對于VB中鼠標(biāo)指針反轉(zhuǎn)方面的知識都比較想要了解，那么今天小好小編就為大家收集了一些關(guān)于VB中鼠標(biāo)指針反轉(zhuǎn)方面的知識分享給大家，希望大家會喜歡哦。
1、呵呵，學(xué)習(xí)下，基本上我認(rèn)為很難，但是我有個(gè)思路，說出來同樓主研究下，在窗體上畫一個(gè)圖片，圖片的樣子就是鼠標(biāo)指針的樣子，然后通過鼠標(biāo)移動(dòng)事件來寫代碼。如果鼠標(biāo)在窗體上移動(dòng)的話。(x
2、Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
3、Label1 = x & ": " & y
4、版權(quán)歸果芝士細(xì)回答大網(wǎng)站或原各作者所專有
5、Command1.Left = Form1.Width - x
6、Command1.Top = Form1.Height - y
7、到可命無料及金改美采礦養(yǎng)住。
8、兄弟啊，為你這個(gè)問題我想了一個(gè)晚上，突然在半夜睡覺的夢里想出了一個(gè)解決方法，今天試了試。成了，呵呵，保證和你的題目是一樣的。代碼有點(diǎn)多，如果不懂HI我吧。。。
9、要過所前又利果象員，口感構(gòu)精適。
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 坐標(biāo)
13、Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long '移動(dòng)
14、Private Type POINTAPI '定義點(diǎn)(Point)結(jié)構(gòu)
15、x As Long '點(diǎn)在X坐標(biāo)(橫坐標(biāo))上的坐標(biāo)值
16、y As Long '點(diǎn)在Y坐標(biāo)(縱坐標(biāo))上的坐標(biāo)值
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 '設(shè)置時(shí)鐘可以自己調(diào)，根據(jù)你的移動(dòng)速度來
26、End Sub
27、Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
28、fa2 = True '是否在窗體上移動(dòng)
29、If fa1 = True Then '新坐標(biāo)
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 '反向移動(dòng)
36、fa2 = False '防止鼠標(biāo)跳出窗體后出錯(cuò)
37、fa1 = False '開始計(jì)時(shí)器
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) '調(diào)用函數(shù)，獲取屏幕鼠標(biāo)坐標(biāo)
45、fafa1x = mypoint.x
46、fafa1y = mypoint.y
47、fa1 = True '開始讀取新坐標(biāo)
48、End If
49、Label1 = mypoint.x & " : " & mypoint.y
50、End Sub
51、End Sub
本文到此結(jié)束，希望對大家有所幫助。
版權(quán)說明： 本文由用戶上傳，如有侵權(quán)請聯(lián)系刪除！
猜你喜歡：
- 2022-09-20 一個(gè)人在心里不重要的說說（在別人心里不重要的說說）
- 2022-09-20 治國有常而利民為本是出自于哪里（治國有常而利民為本出自哪里）
- 2022-09-20 人家說我是海王什么意思（別人說你是海王什么意思）
- 2022-09-20 新時(shí)代潮流中涉及家國情懷的作文題目（家國情懷的作文題目）
- 2022-09-20 螺旋果凍干什么用的（螺旋果凍用來干嘛）
- 2022-09-20 中國網(wǎng)絡(luò)安全大賽是什么（全國網(wǎng)絡(luò)安全大賽是什么）
- 2022-09-20 你就是我最美的相遇是什么歌（你是我最美的相遇的歌詞是什么）
- 2022-09-20 網(wǎng)上賣的茶煙是真的嗎是假的（網(wǎng)上賣的茶煙是真的嗎）
最新文章：
- 2023-07-02 怎樣挑選新鮮的豬肝?（怎么挑選新鮮豬肝 挑選新鮮豬肝的小技巧）
- 2023-07-02 木地板都有哪些種類（木地板的種類有哪些）
- 2023-07-02 白蠟?zāi)炯揖叩膬?yōu)缺點(diǎn)（松木家具的優(yōu)缺點(diǎn)）
- 2023-07-02 怎么清洗窗簾布上的污垢（怎么清洗窗簾）
- 2023-07-02 世界上最可愛的小倉鼠的樣子（可愛小倉鼠的種類）
- 2023-07-02 小貓拉不出來屎怎么辦（小貓拉不出屎怎么辦）
- 2023-07-02 新飛小冰箱耗電量一天多少度（小冰箱耗電量一天多少度）
- 2023-07-02 公司注銷工業(yè)房產(chǎn)怎么辦手續(xù)（公司注銷工業(yè)房產(chǎn)怎么辦）
- 2023-07-02 鳳凰層到底好還是不好（鳳凰層是哪一層）
- 2023-07-02 馬桶寬度空間留多少（馬桶兩邊的空間大小是多少）
- 2023-07-02 如何訓(xùn)練貓咪小便（如何訓(xùn)練貓大小便）
- 2023-07-02 衛(wèi)生間吊頂防潮層做法圖集（衛(wèi)生間吊頂方法是什么）
- 2023-07-02 狗狗為什么總是流口水怎么辦（狗狗為什么愛流口水）
- 2023-07-02 臥室窗戶漏水由誰負(fù)責(zé)維修（臥室窗戶漏風(fēng)怎么辦）
- 2023-07-02 世界名貓大全（世界名貓你知道幾種）
- 2023-07-02 applewatchseries7和6對比（apple watch series 7和6的區(qū)別）