Newsgroup: it.comp.appl.access
Titolo: Inizializzare controllo ImageList

Buon giornoa tutto il NG, cosa vuol dire ma sopratutto come si fa ad
inizializzare un controllo Image list?
ho inserito in una form sia un controllo image list che un treeview,
ma all'apertura della form mi viene dato il seguente messaggio di
errore "il controllo Imagelist deve essere inizializzato prima di
poter essere utilizzato?, ma la cosa strana è che prima tutto
procedeva bene, mi e' bastato solo modificare le dimensioni del
treeview perchè si presentasse questo problema:
posto il codice, mi dareste un aiuto?
Grazie
Saluti
Diego
Dim NodX As Node
Set NodX = TreeView0.Nodes.Add(, , "R", "Aprilia")
NodX.ExpandedImage = 1
NodX.Expanded = True
Set NodX = TreeView0.Nodes.Add("R", tvwChild, "C1", "Scooter 50")
NodX.ExpandedImage = 2
NodX.Expanded = True
Set NodX = TreeView0.Nodes.Add("C1", tvwChild, "B1", "SR 50")
NodX.ExpandedImage = 3
NodX.Expanded = True
Set NodX = TreeView0.Nodes.Add("B1", tvwChild, "SR40B1", "SR 40")
NodX.ExpandedImage = 4
NodX.Expanded = True
Set NodX = TreeView0.Nodes.Add("R", tvwChild, "C2", "Scooter 100")
NodX.ExpandedImage = 5
NodX.Expanded = True
Set NodX = TreeView0.Nodes.Add("C2", tvwChild, "B2", "SR 125")
NodX.ExpandedImage = 6
NodX.Expanded = True
Set NodX = TreeView0.Nodes.Add("B2", tvwChild, "SR125PLUSB1", "SR 125
PLUSS")
NodX.ExpandedImage = 7
NodX.Expanded = True
End Function

 Grazie
@Alex

Buon giorno Alessandro, ti ringrazio intanto per avermi risposto, alla
fine smanettando qui e lì ho capito qual'era il problema, insomma per
cause che non conosco, se decidevo, in visualizzazione struttura, di
modificare le dimensioni del treeview, o in larghezza o in altezza,
stranamente l'immagelist si dissociava dal treeview, cioè sarei stato
costretto ogni volta ad andare nelle proprietà del treeview ed andare
ad associare nuovamente l'immagelist, a cosa sia dovuta quest'anomalia
non mi è dato a sapere, probabilmente non ha spiegazione razionale, o
magari l'ha...!!  boh !
Comunque girovagando tra un post e l'altro hop trovato una routine che
mi permette di associare l'imagelist al treeview da codice, e devo
dire che fatte le dovute prove. il problema non si è più presentato,
meglio così ! =))
Comunque posto il codice e se magari gli dai un occhiata puoi farmi
sapere se va bene o se potrebbe essere ritoccato.
ringraziandoti sempre per la tua disponibilità.
Saluti
Diego.
Private Function Albero()
Dim objTreeView As Object, objListImage As Object, NodX As Node
Set objListImage = Me!ImgList
Set objTreeView = Me!TreeView0
objTreeView.ImageList = objListImage.Object
objTreeView.Sorted = True
Set NodX = objTreeView.Nodes.Add(, , "R", "Aprilia")
NodX.ExpandedImage = 1
NodX.Expanded = True
Set NodX = objTreeView.Nodes.Add("R", tvwChild, "C1", "Scooter 50")
NodX.ExpandedImage = 2
NodX.Expanded = True
Set NodX = objTreeView.Nodes.Add("C1", tvwChild, "B1", "SR 50")
NodX.ExpandedImage = 3
NodX.Expanded = True
Set NodX = objTreeView.Nodes.Add("B1", tvwChild, "SR40B1", "SR 40")
NodX.ExpandedImage = 4
NodX.Expanded = True
Set NodX = objTreeView.Nodes.Add("R", tvwChild, "C2", "Scooter 100")
NodX.ExpandedImage = 5
NodX.Expanded = True
Set NodX = objTreeView.Nodes.Add("C2", tvwChild, "B2", "SR 125")
NodX.ExpandedImage = 6
NodX.Expanded = True
Set NodX = objTreeView.Nodes.Add("B2", tvwChild, "SR125PLUSB1", "SR
