Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
GetClassLong получает 32-битное значение из информации, связанной с классом окна.
В случае ошибки функция возвращает 0 (используйте GetLastError для получения кода ошибки). В успешном случае возвращается 32-битное значение.
| GCW_ATOM = -32 | Retrieve the atom which identifies the window class |
| 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, используемой по умолчанию для окон данного класса |
' Выводим курсор, применяемый в классах формы Form1 Dim hCursor As Long ' описатель курсора для данного класса Dim retval As Long ' возвращаемое значение ' Получим описатель курсора для заданного класса hCursor = GetClassLong(Form1.hWnd, GCL_HCURSOR) ' Выводим полученный курсор на форму retval = DrawIcon(Form1.hDC, 5, 5, hCursor)