Отслеживание координат мыши
| Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI X As Long Y As Long End Type Private Sub Timer1_Timer() Dim p As POINTAPI GetCursorPos p Label1 ="X=" & p.X & " Y=" & p.Y End Sub
| |
| Просмотров: 2477 | Комментарии: 2 | |
| Всего комментариев: 1 | ||
| ||
