国产精品久久久久久久久久东京,亚洲视频免费播放,少妇人妻精品一区二区三区视频,日韩一级品

好房網(wǎng)

網(wǎng)站首頁 科普專區(qū) > 正文

vb反向顯示（VB中鼠標指針反轉）

2022-07-23 10:14:13 科普專區(qū) 來源：
導讀 想必現(xiàn)在有很多小伙伴對于VB中鼠標指針反轉方面的知識都比較想要了解，那么今天小好小編就為大家收集了一些關于VB中鼠標指針反轉方面的知

想必現(xiàn)在有很多小伙伴對于VB中鼠標指針反轉方面的知識都比較想要了解，那么今天小好小編就為大家收集了一些關于VB中鼠標指針反轉方面的知識分享給大家，希望大家會喜歡哦。

1、呵呵，學習下，基本上我認為很難，但是我有個思路，說出來同樓主研究下，在窗體上畫一個圖片，圖片的樣子就是鼠標指針的樣子，然后通過鼠標移動事件來寫代碼。如果鼠標在窗體上移動的話。(x0 y0) 圖片就顯現(xiàn)出來并移動到坐標 （left=form1.width-x,top=form1.height-y）同是把真正的鼠標給敝屏。（怎么弊屏我真不會）大約就是這個意思。下面有個用按鈕代替圖片的代碼。供你參考一下下，如果樓主你找到方法請貼一下。我也想知道。呵呵

2、Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

3、Label1 = x & ": " & y

4、版權歸果芝士細回答大網(wǎng)站或原各作者所專有

5、Command1.Left = Form1.Width - x

6、Command1.Top = Form1.Height - y

7、到可命無料及金改美采礦養(yǎng)住。

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 '設置時鐘可以自己調(diào)，根據(jù)你的移動速度來

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) '調(diào)用函數(shù)，獲取屏幕鼠標坐標

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

本文到此結束，希望對大家有所幫助。

版權說明： 本文由用戶上傳，如有侵權請聯(lián)系刪除！

標簽：