Конференция VBStreets

**v000v** » 23.04.2005 (Сб) 19:08

Bсем привет!
Вопрос по API-функции:

Const ICC_UPDOWN_CLASS = &H10 ' updown

Private Type InitCommonControlsExType

dwSize As Long 'size of this structure

dwICC As Long 'flags indicating which classes to be initialized

End Type

Private Const WS_VISIBLE = &H10000000

Private Const WS_CHILD = &H40000000

Private Declare Sub InitCommonControls Lib "comctl32" ()

Private Declare Function InitCommonControlsEx Lib "comctl32" (init As InitCommonControlsExType) As Boolean

Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long

Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long

Dim mWnd As Long

Private Sub UpDownBarCreate()

'

Const IE3_INSTALLED = True

If IE3_INSTALLED = True Then

Dim initcc As InitCommonControlsExType

initcc.dwSize = Len(initcc)

initcc.dwICC = ICC_UPDOWN_CLASS

InitCommonControlsEx initcc

Else

InitCommonControls

End If

mWnd = CreateWindowEx(0, "msctls_updown32", "UpDownBar", WS_VISIBLE Or WS_CHILD, 39, 0, 10, 25, Me.hwnd, ByVal 0&, ByVal 0&, ByVal 0&)

End Sub
Вопрос: Как отловить clik на созданных кнопках
Спасибо!