Postup:
Založte nový projekt, který
bude obsahovat jeden formulář a jeden modul. Do formuláře připojte
ToolBar a na něj pár tlačítek.
Do modulu vložte
následující deklarace:
'Deklarace
konstant pro API funkce
Public
Const WM_USER = &H400
Public Const TB_SETSTYLE = WM_USER + 56
Public Const TB_GETSTYLE = WM_USER + 57
Public Const TBSTYLE_FLAT = &H800
'Deklarace
API funkcí
Public
Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal
lParam As Long) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA"
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal
lpsz2 As String) As Long
*
každá deklarace musí být na samostatném řádku
V modulu zapište následující
funkci:
Public Sub
SetToolBarFlat(tlbTemp As Toolbar)
Dim lngStyle As Long
Dim lngResult As Long
Dim lngHWND As Long
lngHWND = FindWindowEx(tlbTemp.hwnd, 0&,
"ToolbarWindow32", vbNullString)
lngStyle = SendMessage(lngHWND, TB_GETSTYLE, &O0,
&O0)
lngStyle = lngStyle Or TBSTYLE_FLAT
lngResult = SendMessage(lngHWND, TB_SETSTYLE, 0, lngStyle)
tlbTemp.Refresh
End Sub
Volání z
formuláře je následující (na události Form_Load):
SetToolBarFlat ToolBar1 'Toolbar1
- název panelu nástrojů
Aplikaci spusťte a pak se už
jenom divte ...
|