Сайт Алексея Муртазина (Star Cat) E-mail: starcat-rus@yandex.ru
Мои программы Новости сайта Мои идеи Мои стихи Форум Об авторе Мой ЖЖ
VB коды Статьи о VB6 API функции Самоучитель по VB.NET
Собрания сочинений Обмен ссылками Все работы с фото и видео
О моём деде Муртазине ГР Картинная галерея «Дыхание души»
Звёздный Кот

6 Отслеживаем координаты мыши
Private Declare Function GetCursorPos Lib "user32" (ast As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim coord As POINTAPI

Private Sub Command1_Click()
q = GetCursorPos(coord)
Caption = "X=" & coord.x & ", Y=" & coord.y
End Sub

Инфо
Сайт создан: 20 июня 2015 г.
Рейтинг@Mail.ru
Главная страница