Функция LoadCursorFromFile

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

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

LoadCursorFromFile загружает курсор из файлов (*.cur) или (*.ani). В успешном случае функция возвращает дескриптор нового загруженного курсора,в противном случае функция возвратит 0.

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)  ' восстанавливаем старый курсор

Схожие функции: LoadCursor
Категория: Курсоры

В начало.

megaprom.by
Бани из бруса по выгодным ценам. Тысячи предложений. Быстрый поиск
megaprom.by
Лучшее модельное агентство Москвы http://www.getmodels.ru
getmodels.ru