Plochý panel nástrojů

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 ...

Zpět

Autor: The Bozena