Функция SetClassLong

Declare Function SetClassLong Lib "user32.dll" Alias "SetClassLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
SetClassLong задает 32-битное значение одной из переменной, связанной с классом окна

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

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

Параметры

hWnd
Дескриптор окна, для которого задается информация
nIndex
Заменяемое 32-битное значение для изменения свойств класса окна. Может принимать следующие значения:
GCL_CBCLSEXTRA = -20Количество байт дополнительной памяти для класса окна
GCL_CBWNDEXTRA = -18Количество байт дополнительной памяти для каждого окна данного класса
GCL_HBRBACKGROUND = -10Дескриптор кисти, используемой для закрашивания фона окна данного класса
GCL_HCURSOR = -12Дескриптор курсора для окон данного класса
GCL_HICON = -14Дескриптор значка для окон данного класса
GCL_HICONSMДескриптор маленького значка для окон данного класса
GCL_HMODULE = -16Дескриптор модуля для данного класса
GCL_MENUNAME = -8Имя или идентификатор ресурса меню данного класса
GCL_STYLE = -26Стиль окна для данного класса
GCL_WNDPROC = -24Указатель на функцию обратного вызова WindowProc, используемой по умолчанию для окон данного класса
dwNewLong
Новое устанавливаемое значение

Пример

' Изменим указатель для класса формы
Dim sCursorFile As String
Dim hCursor As Long
Dim hOldCursor As Long

' Зададим путь к файлу-курсору
sCursorFile = App.Path & "\Globe.ani"
hCursor = LoadCursorFromFile(sCursorFile)

hOldCursor = SetClassLong(Form1.hwnd, GCL_HCURSOR, hCursor)

Смотри также

GetClassLong, SetWindowLong

Категория

Классы