BackColor ToolBar

Ciao;

E' possibile applicare il BackColor alla ToolBar, visto che l'unico colore risulta sempre quello di default.

Grazie

No.

L'unico modo sarebbe il subclassing, ma in questo caso è un avventura pericolosa e tortuosa, perchè il controllo Toolbar contrariamente a quanto sembra è in realtà costituito da DUE finestre il che equivale a 2 handle da gestire, che dialogano uno con l'altro.
Insomma: sconsigliato assolutamente.

Ciao

Quindi devo tenermi quell'odioso colore standard?

Cercando in giro o trovato questo codice. Cosa ne penzate?

in un modulo

Option Explicit

Private 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

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" ( _
                ByVal hwnd As Long, ByVal nindex As Long, ByVal dwnewlong As Long) As Long

Public Declare Function InvalidateRect Lib "user32" _
                (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long

Public Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long

Public Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long

Public Enum enuTBType
    enuTB_FLAT = 1
    enuTB_STANDARD = 2
End Enum

Private Const GCL_HBRBACKGROUND = (-10)

Public Sub ChangeTBBack(TB As Object, PNewBack As Long, pType As enuTBType)
Dim lTBWnd      As Long

    Select Case pType
        
        Case enuTB_FLAT     'FLAT Button Style Toolbar
            DeleteObject SetClassLong(TB.hwnd, GCL_HBRBACKGROUND, PNewBack) 'Its Flat, Apply directly to TB Hwnd
        
        Case enuTB_STANDARD 'STANDARD Button Style Toolbar
            lTBWnd = FindWindowEx(TB.hwnd, 0, "msvb_lib_toolbar", vbNullString) 'Standard, find Hwnd first
            DeleteObject SetClassLong(lTBWnd, GCL_HBRBACKGROUND, PNewBack)      'Set new Back
    End Select
End Sub

in un form con una toolbar

Private Sub Form_Load()
    ApplyChanges
End Sub

Private Sub ApplyChanges()
    Dim LngNew As Long
    'Change Backcolor to STANDARD TB (Toolbar1)
    LngNew = CreateSolidBrush(RGB(240, 120, 120))        'Creates the background from a Color (Long)
    ChangeTBBack Toolbar1, LngNew, enuTB_FLAT
    
    'Refresh Screen to see changes
    InvalidateRect 0&, 0&, False
End Sub

Purtroppo...

Ciao

Originariamente inviato da gibra

Purtroppo...

Intendi dire che in pratica si tratta di ciò di cui parlavi? Apparentemente sembra funzionare correttamente senza dare problemi.

Magari se mi dicessi qualche tua perplessità mi aiuteresti a capire meglio.

Carmen, non ti capisco.
Spiegati meglio.

Ciao

Niente. Volevo solo il tuo parere sul codice che avevo postato, se secondo tè potrebbe andare bene oppure si possono avere delle sorprese.

Scusa, ma non avevo visto che avevi postato del codice.
L'hai provato?

Ciao

Si. Come dicevo funziona a meraviglia senza dare alcun problema.