Функция SetCursor

Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
SetCursor устанавливает изображения для использования в качестве курсора мыши. Новый курсор может быть любым правильным курсором, который может быть создан или загружен

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

В случае успеха функция возвращает дескриптор прежнего курсора или 0 в случае ошибки

Параметры

hCursor
Дескриптор нового курсора

Пример

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

Смотри также

GetCursor, SetSystemCursor

Категория

Курсоры