Функция LoadCursorFromFile

Declare Function LoadCursorFromFile _
    Lib "user32" _
    Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long

LoadCursorFromFile создает курсор из файлов (*.cur) или (*.ani) или из системных курсоров.

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

В успешном случае функция возвращает описатель нового загруженного курсора, в противном случае функция возвратит 0 (используйте GetLastError для получения кода ошибки, которая может возвратить константу ERROR_FILE_NOT_FOUND, т.е файл не найден)

Параметры

lpFileName

Имя файла (CUR или ANI)

Пример

' Загрузим курсор "C:\Samples\globe.ani" 
' и установим его текущим курсором на три секунды. 
' Затем восстановим прежний курсор

' Получаемый дескриптор загружаемого курсора
Dim hcursor As Long
' Описатель текущего курсора
Dim holdcursor As Long  
Dim retval As Long  ' возвращаемое значение

' Загружаем курсор из файла
hcursor = LoadCursorFromFile("C:\Samples\globe.ani")
If hcursor = 0 Then End ' выходим из программы, если не сможем загрузить курсор

' устанавливаем загружаемый курсор в качестве текущего
holdcursor = SetCursor(hcursor) ' три секунды для показа
Sleep 3000
' восстанавливаем старый курсор
retval = SetCursor(holdcursor)

Смотри также

Категория