Функция InitCommonControlsEx

Declare Function InitCommonControlsEx Lib "comctl32.dll" (lpInitCtrls As INITCOMMONCONTROLSEX_TYPE) As Long

InitCommonControlsEx регистрирует класс окна, используемый для создания различных элементов управления. Данную функцию необходимо вызывать перед CreateWindowEx при создании некоторых элементов управления

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

В случае ошибки возвращается 0. В успешном случае возвращается ненулевое значение

Параметры

lpInitCtrls

Структура INITCOMMONCONTROLSEX_TYPE, определяющая тип класса элемента управления для регистрации

Пример

' смотри также примеры avi.zip и tooltips.zip

' Программно создадим элемент управления UpDown
Dim initcc As INITCOMMONCONTROLSEX_TYPE
initcc.dwSize = Len(initcc)
initcc.dwICC = ICC_UPDOWN_CLASS
InitCommonControlsEx initcc
mWnd = CreateWindowEx(0, "msctls_updown32", "Russian_Project_Control", WS_VISIBLE Or WS_CHILD, 10, 10, 50, 100, Me.hwnd, ByVal 0&, ByVal 0&, ByVal 0&)

' Перед выходом уничтожаем окно
Private Sub Form_Unload(Cancel As Integer)
    DestroyWindow mWnd
End Sub

Смотри также примеры применения функции в

IPM_SETFOCUS

Категория

Common Controls