Vzhled MS Office |
![]() |
Postup: Do deklarační části formuláře zapište: 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 GWL_EXSTYLE
= (-20) Private Function AddOfficeBorder(ByVal hWnd As Long) Dim lngRetVal As Long lngRetVal
= GetWindowLong(hWnd, GWL_EXSTYLE) SetWindowLong hWnd, GWL_EXSTYLE, lngRetVal SetWindowPos
hWnd, 0, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or _ End Function Příklad použití (doporučuji nastavit
prvky bez ohraničení): |
![]() |
Autor: The Bozena |