Функция LoadCursor

Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Any) As Long

Платформа: Win 95/98, Win NT

LoadCursor загружает курсор из ресурсов курсора к настоящему времени работающей программы или из ресурсов курсора Windows. Курсор может ссылаться на свое имя в ресурсах или своим ID-номером числового ресурса. В успешном случае функция возвращает дескриптор загруженного курсора. В случае ошибки возвращается 0.

hInstance
Для того, чтобы загрузить курсор из ресурсов курсора программы, установите его в программе заранее(MousePointer). Для того, чтобы загрузить из ресурсов курсора Windows-установите в 0.
lpCursorName
Или строка, содержащая имя ресурса курсора или числовой номер ID, опознающий ресурс. Для курсоров Windows могут быть использованы следующие флаги, чтобы выбрать желаемый ресурс курсора:
IDC_APPSTARTING = 32650
Курсор фонового режима(стрелка с песочными часами)
IDC_ARROW = 32512
Стандартная стрелка
IDC_CROSS = 32515
Стрелка-крест(графическое выделение).
IDC_IBEAM = 32513
Стрелка выделения текста.
IDC_ICON = 32641
только в Win NT: Пустой курсор
IDC_NO = 32648
Операция невозможна.
IDC_SIZE = 32640
только в Win NT: Изменение размеров.
IDC_SIZEALL = 32646
Изменение размеров.
IDC_SIZENESW = 32643
Диагональное изменение размеров.
IDC_SIZENS = 32645
Вертикальное изменение размеров.
IDC_SIZENWSE = 32642
Диагональное изменение размеров.
IDC_SIZEWE = 32644
Горизонтальное изменение размеров.
IDC_UPARROW = 32516
Специальное выделение(стрелка вверх).
IDC_WAIT = 32514
Система недоступна (песочные часы).

Пример:

' Отобразим стандартный курсор фонового режима Windows
'(обычно стрелка с песочными часами) на три секунды.
' Затем восстановим прежние значения.
Dim hcursor As Long  ' дескриптор к новому курсору
Dim holdcursor As Long  ' полученный дескриптор к прежнему курсору
Dim retval As Long  ' возвращаемое значение

hcursor = LoadCursor(0, IDC_APPSTARTING)   ' загружаем курсор фонового режима
holdcursor = SetCursor(hcursor)  ' устанавливаем новый курсор
Sleep 3000   ' три секунды для показа
retval = SetCursor(holdcursor)    ' восстанавливаем прежний курсор

Схожие функции: LoadCursorFromFile
Категория: Курсоры

В начало.

Лучшие рестораны москвы
Забронируйте стол! Все рестораны, кафе и бары Москвы на Афиша-Рестораны
guavabar.ru