.ctl / .ocx Dynamická velikost prvků – Visual Basic – Fórum – Programujte.com

Ahoj, m?m takov? probl?m :( D?l?m si ocxko, kter? bude na formu. Pot?ebuji ale kdy? se program spust?, aby si u?ivatel pomoc? my?i mohl dynamicky m?nit velikost prvk?. Jako t?eba v re?imu n?vrhu ve Visual Basicu. Pomoc? my?i kliknut?m a t?hnut?m si zv?t?ovat Height a Width.. Nev?te n?kdo jak na to?

Zkou?el jsem pou??t tento k?d ale negunguje.

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const SWP_NOZORDER = &H4
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_DRAWFRAME = &H20 ' The frame changed: send WM_NCCALCSIZE
Private Const GWL_STYLE = (-16)
Private Const WS_THICKFRAME = &H40000

Private Sub Meneni_velikosti(hwnd As Long)
Dim style As Long, ret As Long
style = GetWindowLong(hwnd, GWL_STYLE)
style = style Or WS_THICKFRAME
ret = SetWindowLong(hwnd, GWL_STYLE, lngStyle)
ret = SetWindowPos(hwnd, UserControl.hwnd, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME)
End Sub

Probl?m bude asi v prom?n? lngStyle, kter? neni vůbec nefinovan?. :(