Функция LoadCursor

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

Возвращаемое значение

В успешном случае функция возвращает дескриптор загруженного курсора. В случае ошибки возвращается 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)    ' восстанавливаем прежний курсор

Смотри также

Категория