Функция LoadCursor

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

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
Система недоступна (песочные часы)

Пример

' Смотри также пример apiform.zip

' Отобразим стандартный курсор фонового режима 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

Категория

Курсоры