toolsbar

[leo79]

Buongiorno a tutti

ho un problema con la toolsbar non riesco a inserire immaggini nei bottoni che ho creato tramite le proprietà della toolsbar.
Ho provato a creare tramite codice l'ImageList ma mi da errore.

Questo il codice:

Dim imgX As ListImage
Dim btnX As Button

Set imgX = ImageList1.ListImages. _
Add(, "Assistiti", LoadPicture("C:\Documents and Settings\administrator.MATISSE\Desktop\versione 3.10\Icone\famiglie.ico"))
Set imgX = ImageList1.ListImages. _
Add(, "Medici", LoadPicture("C:\Documents and Settings\administrator.MATISSE\Desktop\versione 3.10\Icone\config.ico"))
tlbToolsbar.ImageList = ImageList1

tlbToolsbar.Buttons.Add , , , tbrSeparator
Set btnX = tlbToolsbar.Buttons.Add(, "Assistiti", , tbrDefault, "Assistiti")
btnX.ToolTipText = "Assistiti"
btnX.Description = btnX.ToolTipText
Set btnX = tlbToolsbar.Buttons.Add(, "Medici", , tbrDefault, "Medici")
btnX.ToolTipText = "Medici"
btnX.Description = btnX.ToolTipText
Set btnX = tlbToolsbar.Buttons.Add(, , , tbrSeparator)

Va subito in errore alla prima riga (object required)
C'è un altro modo o per forza da codice posso inserire immagini?

Grazie a tutti ciao

[ladyBlu]

io direi che ti conviene fare così:
inserisci le immagni nella ImageList dalla finestra proprietà della stessa e poi le carichi nella toolbar dalla sua finestra proprietà, scrivendo per ogni bottone l'indice che l'img ha nella ImgList.
non c'è alcun bisogno di utilizzare righe di codice se già sai quali sono le img che ti servono.

[leo79]

Grazie per l'aiuto comunque tramite codice ci sono riuscito adesso provo come dici te che è sicuramente piu' funzionale e veloce.

Ciao grazie

[verodami]

Originariamente inviato da leo79
Buongiorno a tutti

ho un problema con la toolsbar non riesco a inserire immaggini nei bottoni che ho creato tramite le proprietà della toolsbar.
Ho provato a creare tramite codice l'ImageList ma mi da errore.

Questo il codice:

Dim imgX As ListImage
Dim btnX As Button

Set imgX = ImageList1.ListImages. _
Add(, "Assistiti", LoadPicture("C:\Documents and Settings\administrator.MATISSE\Desktop\versione 3.10\Icone\famiglie.ico"))
Set imgX = ImageList1.ListImages. _
Add(, "Medici", LoadPicture("C:\Documents and Settings\administrator.MATISSE\Desktop\versione 3.10\Icone\config.ico"))
tlbToolsbar.ImageList = ImageList1

tlbToolsbar.Buttons.Add , , , tbrSeparator
Set btnX = tlbToolsbar.Buttons.Add(, "Assistiti", , tbrDefault, "Assistiti")
btnX.ToolTipText = "Assistiti"
btnX.Description = btnX.ToolTipText
Set btnX = tlbToolsbar.Buttons.Add(, "Medici", , tbrDefault, "Medici")
btnX.ToolTipText = "Medici"
btnX.Description = btnX.ToolTipText
Set btnX = tlbToolsbar.Buttons.Add(, , , tbrSeparator)

Va subito in errore alla prima riga (object required)
C'è un altro modo o per forza da codice posso inserire immagini?

Grazie a tutti ciao

Ciao ..
Allora io personalmente ... dopo aver inserito in un form.. una imagelist ed un toolbar ..per caricarmi le immagini utilizzo la proprietà (personalizzate) messa a dispozione dal form stesso ...secondo me è più semplice
Osserva questa proprietà ...per entrambi i bottoni ( tollbar e image list)
fammi sapere se trovi difficoltà