ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Указатели мыши Windows
8 сообщений из 8, страница 1 из 1
Указатели мыши Windows
    #32376685
Yuri-Topic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yuri-Topic
Гость
Всем здравствуйте!
Можно ли при помощи API получить числовые значения указателей мыши, используемых
по умолчанию в WINDOWS (те, которые открываются через "Панель управления" - > "Мышь" -> "Вид указателя".
Вот, например, функция
GetCursor() возвращает handle текущего курсора. Не знаю, связано ли это с перечнем этих курсоров из панели управления, если да, как узнать, что именно представляет собой текущий курсор - "Основной режим", "Выбор справки" и т.д. (это перечень указателей из той же панели управления). Ведь им наверняка соответствуют какие-то значения?
Screen.MoousePointer возвращает 0 (вид курсора Access по умолчанию)
...
Рейтинг: 0 / 0
15.01.2004, 10:48
| Ответить | Цитировать | Написать  
Указатели мыши Windows
    #32376703
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
получить-то можно. Только тебе зачем?

The GetCursor function retrieves a handle to the current cursor.
The return value is the handle to the current cursor. If there is no cursor, the return value is NULL.

Код: plaintext
1.
2.
3.
4.
   Type POINTAPI         ' Used for GetCursor - gets mouse location
      X As Integer       ' in screen coordinates.
      Y As Integer
   End Type
Declare Sub GetCursorPos Lib  "User"  (lpPoint As POINTAPI)
...
Рейтинг: 0 / 0
15.01.2004, 10:59
| Ответить | Цитировать | Написать  
Указатели мыши Windows
    #32376780
Yuri-Topic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yuri-Topic
Гость
Извиняюсь, конечно, а к чему этот пример определения позиций курсора?
...
Рейтинг: 0 / 0
15.01.2004, 11:40
| Ответить | Цитировать | Написать  
Указатели мыши Windows
    #32376818
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
Тьфу, блин, я плохо освоил Копи-Пайсте, извиняюсь.

Код: plaintext
1.
Declare Function GetCursor Lib  "User32"  () As Long
Debug.Print GetCursor
...
Рейтинг: 0 / 0
15.01.2004, 11:57
| Ответить | Цитировать | Написать  
Указатели мыши Windows
    #32376858
Фотография PA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PA
Участник
Windows default cursors:

OCR_APPSTARTING = 32650
The application starting (arrow and hourglass) cursor.
OCR_CROSS = 32515
The cross-shaped cursor.
OCR_IBEAM = 32513
The text selection (I-beam) cursor.
OCR_ICON = 32641
Win NT only: The empty icon cursor.
OCR_NO = 32648
The "no"-symbol (circle with slash through it) cursor.
OCR_NORMAL = 32512
The normal arrow cursor.
OCR_SIZE = 32640
Win NT only: The four-arrow resize/move cursor.
OCR_SIZEALL = 32646
The four-arrow resize/move cursor.
OCR_SIZENESW = 32643
The double-arrow resize/move cursor pointing to the upper-right and lower-left.
OCR_SIZENS = 32645
The double-arrow resize/move cursor pointing up and down.
OCR_SIZENWSE = 32642
The double-arrow resize/move cursor pointing to the upper-left and lower-right.
OCR_SIZEWE = 32644
The double-arrow resize/move cursor pointing left and right.
OCR_UP = 32516
The up arrow cursor.
OCR_WAIT = 32514
The waiting (hourglass) cursor
...
Рейтинг: 0 / 0
15.01.2004, 12:15
| Ответить | Цитировать | Написать  
Указатели мыши Windows
    #32376996
Yuri-Topic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yuri-Topic
Гость
Большое спасибо за константы.
Только они нужны для установления вида системного курсора:

Declare Function SetSystemCursor& Lib "user32" (ByVal hcur As Long, ByVal id As _
Long)
hcur Long—The new cursor.
id Long—One of the constants beginning with the prefix OCR_ that specifies a standard system cursor.

А вот получить текущий?
GetCursor (у меня) возвращает значения совсем не такие, например
5238 (когда курсор находится в элементе управления в режиме редактирования)
5246 (когда курсор наводится на кнопку)
и т.д.

Может быть эти значения можно как-то привязать к этим константам?
В шестнадцатиричном виде тоже не подходит...
А может быть их надо сравнивать какими-то другими способами?
...
Рейтинг: 0 / 0
15.01.2004, 13:17
| Ответить | Цитировать | Написать  
Указатели мыши Windows
    #32377136
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
Может тебе нужна статья из Knowledge Base
HOWTO: Modify the Windows Default Cursor №160041 ?
Там курсором управляют через функцию LoadCursor
...
Рейтинг: 0 / 0
15.01.2004, 14:31
| Ответить | Цитировать | Написать  
Указатели мыши Windows
    #32377301
Yuri-Topic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yuri-Topic
Гость
Спасибо, конечно...
Но только же это - модификация имеющегося курсора - если я хочу изменить текущий курсор. А мне надо получить информацию о текущем курсоре. LoadCursor по-моему этого не делает...
...
Рейтинг: 0 / 0
15.01.2004, 15:54
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Указатели мыши Windows
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32376858&tid=1677196]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 182ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 212ms
total:  460ms
созд. / загр.: 460ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]