Функция SetSystemCursor

hcur

Дескриптор нового курсора. Дескриптор будет удален самой системой при установке нового курсора

id

Один из следующих флагов, определяющих стандартные системные курсоры:

OCR_APPSTARTING = 32650

Фоновый режим (Стрелка и маленькие песочные часы)

OCR_CROSS = 32515

Графическое выделение(Курсор в виде креста)

OCR_IBEAM = 32513

Выделение текста (Вертикальная черта)

OCR_ICON = 32641

Win NT: Пустой курсор

OCR_NO = 32648

Операция невозможна (перечеркнутый круг)

OCR_NORMAL = 32512

Основной режим (Стандартная стрелка)

OCR_SIZE = 32640

Win NT: Изменение размеров

OCR_SIZEALL = 32646

Перемещение(четырехконечная стрелка)

OCR_SIZENESW = 32643

Диагональное изменение размеров

OCR_SIZENS = 32645

Диагональное изменение размеров

OCR_SIZENWSE = 32642

Диагональное изменение размеров

OCR_SIZEWE = 32644

Горизонтальное изменение размеров

OCR_UP = 32516

Специальное выделение(стрелка вверх)

OCR_WAIT = 32514

Система недоступна (песочные часы)

Пример

' Установим курсор ожидания(песочные часы)
' C:\MyProg\NewWait.ani
Dim hcursor As Long  ' дескриптор курсора
Dim retval As Long ' возвращаемое значение

' Загружаем курсор из файла
hcursor = LoadCursorFromFile("C:\MyProg\NewWait.ani")
retval = SetSystemCursor(hcursor, OCR_WAIT)
' Теперь система использует NewWait.ani как курсор ожидания

Смотри также

Категория