Курсор
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 4
• Страница 1 из 1
- |( () ( T |/| |(
- Бывалый
-
- Сообщения: 211
- Зарегистрирован: 01.10.2005 (Сб) 15:49
Курсор
|( () ( T |/| |( » 15.11.2007 (Чт) 18:56
Вопрос значит такой, как узнать координаты верхнего левого угла курсора? GetCursorPos - возвращает координаты hotspot-а. За ранее Благодарю.
С=[::::::::::> ™ e398wallpapers.narod.ru
- EUGY
- Бывалый
-
- Сообщения: 214
- Зарегистрирован: 09.11.2006 (Чт) 22:51
- Откуда: Мурманск
EUGY » 15.11.2007 (Чт) 19:36
- Код: Выделить всё
Private Sub Command1_Click()
Dim pt As POINTAPI
Dim icinf As ICONINFO
GetCursorPos pt
GetIconInfo GetCursor, icinf
Debug.Print pt.x
Debug.Print pt.x - icinf.xHotspot; Tab; pt.y - icinf.yHotspot
End Sub
Сообщений: 4
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 57