Функция SetCursor

Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long

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

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
Категория: Курсоры

В начало.