Premessa
Una delle questioni più fastidiose relative al controllo Toolbar riguarda l’impostazione delle immagini nei pulsanti; è noto infatti che l’assegnazione di un immagine ad un pulsante richiede preventivamente l’associazione ad un ImageList in fase di progettazione in cui ovviamente dobbiamo già aver inserito tutte le immagini da utilizzare.
Ciò, di per sé, non presenta problemi; semmai è noioso dovere impostare l’immagine per ogni singolo pulsante, soprattutto se i pulsanti sono molti.
Ma i problemi sorgono in seguito, cioè quando si rende necessaria l’aggiunta di una nuova immagine nell’ImageList! Eh sì, perchè tale operazione è possibile solo se prima si ’scollega’ l’ImageList dal controllo Toolbar, altrimenti VB6 risponde picche!
Oltretutto, questo provoca nel Toolbar il completo azzeramento di tutti i riferimenti alle immagini che avevamo assegnato ad ogni singolo pulsante, e dopo aver aggiunto la nuova immagine saremo costretti a ripristinarli di nuovo, uno per uno.
A lungo andare, tutto questo può innervosire (e come se innervosisce!).
Non so voi, ma io che uso un Toolbar praticamente in ogni form (in sostituzione dei CommandButton) e questo problema per me divenne un incubo molto presto!
Così ho studiato un piccolo stratagemma che mi permette la massima libertà di azione e mi evita qualche imprecazione di troppo…
Soluzione
Il modo più semplice che ho trovato per risolvere questo problema è quello di assegnare le immagini in fase di esecuzione, anzichè in fase di progettazione, creando una semplice routine che si incarica di svolgere tutto il lavoro per me.
Esiste però una condizione, peraltro assai semplice:
la proprietà Key del pulsante nel Toolbar deve essere uguale alla proprietà Key dell’immagine presente nell’ImageList che vogliamo assegnargli.
In pratica, se al pulsante Salva impostiamo Key=save, anche l’immagine che raffigura tale operazione (es. floppy disk) dovrà avere la proprietà Key=save.
Vediamo il codice della routine
Public Sub ImpostaToolBar(ByRef myTB As MSComctlLib.Toolbar, _
Optional ByRef myIml As MSComctlLib.ImageList, _
Optional ByRef myHotIml As MSComctlLib.ImageList, _
Optional ByVal bMostraCaption As Boolean = False, _
Optional ByVal bFlat As Boolean = True, _
Optional ByVal bBorder As Boolean = False)
Rem NOTA: questa routine non è completa,
Rem il codice serve solo come esempio.
Rem Vedi in calce il link per scaricare
Rem il progetto di esempio.
Rem Per ogni pulsante del controllo Toolbar,
Rem prendo il valore di Key e cerco
Rem l'immagine corrispondente nell'ImageList.
Rem Se la trovo la abbino al pulsante:
For i = 1 To myTB.Buttons.Count
If myTB.Buttons(i).Style <> tbrSeparator Then
myTB.Buttons(i).Image = _
myIml.ListImages(myTB.Buttons(i).Key).Index
sToolTip = myIml.ListImages(myTB.Buttons(i).Key).Tag
Rem uso la proprietà Tag per impostare il tooltip
If sToolTip <> "" Then
myTB.Buttons(i).ToolTipText = sToolTip
End If
Rem Se si sceglie di mostrare la Caption
If bMostraCaption Then
myTB.Buttons(i).Caption = myTB.Buttons(i).ToolTipText
End If
End If
Next i
End Sub
Osservando i parametri presenti nella firma di questa routine è facile intuire che in realtà essa permette di impostare molte altre proprietà, ad esempio l’imagelist da usare come effetto Hot. Nella sezione VB Projects del mio sito VBCorner potete scaricare il progetto di esempio completo.
