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 Const WS_EX_CLIENTEDGE = &H200 
Private Const WS_EX_STATICEDGE = &H20000 
Private Const SWP_FRAMECHANGED = &H20 
Private Const SWP_NOMOVE = &H2 
Private Const SWP_NOOWNERZORDER = &H200 
Private Const SWP_NOSIZE = &H1 
Private Const SWP_NOZORDER = &H4 

Private Function AddOfficeBorder(ByVal hWnd As Long) 

   Dim lngRetVal As Long 

   lngRetVal = GetWindowLong(hWnd, GWL_EXSTYLE) 
   lngRetVal = lngRetVal Or WS_EX_STATICEDGE And Not _
       WS_EX_CLIENTEDGE 

   SetWindowLong hWnd, GWL_EXSTYLE, lngRetVal 

   SetWindowPos hWnd, 0, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or _
      SWP_NOOWNERZORDER Or SWP_NOZORDER Or SWP_FRAMECHANGED 

End Function

Příklad použití (doporučuji nastavit prvky bez ohraničení):
AddOfficeBorder Text1.hWnd

Zpět

Autor: The Bozena