VBCoding Библиотека кодов Visual Basic 6 Оболочка и система Получить координаты курсора

Visual Basic 6
Получить координаты курсора

Добавьте на форму 2 элемента Label и 1 Timer. Вставьте следующий код:

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim z As POINTAPI

Private Sub Timer1_Timer()
GetCursorPos z
Label1 = "x: " & z.x
Label2 = "y: " & z.y
End Sub
Private Sub Form_Load()
Timer1.Interval = 1
End Sub

 

Источник: http://www.vbnet.ru/ 
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic 6 Оболочка и система Получить координаты курсора  
Powered by Exponenta -