Newsgroup: it.comp.appl.access
Titolo: ImageList : "l'icona t'ho detto di metterla qua e non la"

Questo č un controllo , imagelist, che non serve a nulla , ma č cosě
carino.
Cmq:
************************************
Option Compare Database
Option Explicit
Dim nodx As Node
Dim db As DAO.Database
Dim rs As DAO.Recordset
Private Sub Form_Load()
    Set db = DBEngine.Workspaces(0)(0)
 
    With TreeView0.Nodes
        'svuoto la struttura ad albero
        .Clear
        'creo il nodo root
        Set nodx = .Add(, , "AA", "Tipo Produzione")
        With nodx
            .Expanded = True
            .Sorted = True
            .ExpandedImage = 2
        End With
        ' creo i nodi del tipo di produzione
        Set rs = db.OpenRecordset("SELECT IDTipo, TipoProduzione FROM
TipoProduzione", dbOpenForwardOnly)
        Do Until rs.EOF
            Set nodx = .Add("AA", tvwChild, "BB" & rs!IDTipo,
rs!TipoProduzione)
            With nodx
                .Expanded = False
                .ExpandedImage = 1
            End With
            Set nodx = .Add("BB" & rs!IDTipo, tvwChild)
            nodx.Tag = "TBD"
            rs.MoveNext
        Loop
    End With
 
End Sub
********************************
IO voglio avere l'icona sul ramo root ( e c'č) e su suo figlio e
invece me la mette solo quando espando il nodo, ma perchč ?
Notare che ho messo due icone diverse, proprio per capire se le ho
messe al posto giusto e lo sono.
Tra l'altro , volevo che sull'evento expand del nodo , mi andasse a
pescare l'icona 2, ma, se fa cosě , IO con lui non ci gioco piů. :-)
es. ( qui la vedo dura ):
icona
 |
 |__(qui voglio l'icona: ho detto subito !!! )
 |                     
 |                     
Ciao. Fabrizio.
(Access XP (sp2), Win ME, P4 1Ghz, 320 RAM)

 carino.
cut
Personalmente non avevo mai usato questo controllo, ma mi sembra molto
intuitivo e accattivante.
Come hai caricato la imagelist?
Ho usato il tuo codice e ho ottenuto perfettamente la mia strutturina ad
albero, se mi dici come caricare le icone vediamo se anche da me da lo
stesso problema.
Sib


Vabbè la struttura ad albero ce l'ho anch'io, è proprio un problema di
"iconcine".
Cmq : inserisci a struttura l'imagelist ( sembra una specie di
pulsante, che non vedrai in maschera finita) vai in proprietà
dell'imagelist ( è come il TreeView , per cui attento a non far uscire
la proprietà di Access) : --> images --> insert picture --> scegli
quello che vuoi.
Se non ho capito male , le immagini sono numerate secondo un indice (
casella index ) , poi le carichi da codice col comando .expandeimage =
index.
Ho provato a scaricare il DB nel sito comune con l'esempio , ma mi
sembra uguale.


 Ciao. Fabrizio.
Nelle proprietà del controllo Treeview devi impostare la "LineStyle" a 0.
Ciao, Carlo


L'avevo già fatto.


 E' nello stesso ocx del Treeview.
cut
si', ho visto la proprieta' imagelist, ma e' impostata su <nessuna> e non
trovo il modo di caricarvi nulla.
Sib



E' un ocx , come dire , a se , ma si carica con lo stesso ocx del
TreeView. Devi metterlo come hai fatto con il TreeView (è un
controllo: scorri gli active x )  dopo di che fai le cose che ti ho
detto io e poi setti dalla proprietà del TreeView il controllo
ImageList adeguato.


 ImageList adeguato.
E allora ho risolto il tuo problema.
siccome, evidentemente, chi ha fatto l'ocx ha pensato che tu volessi usare
icone diverse a seconda che il ramo fosse espanso o meno, devi impostare
.image per il ramo non espanso e .expandedimage per il ramo espanso.
Ciao
Sib



eh bravo , così hai risposto anche alla mia seconda domanda.
Grazie Sib, così come mi hai detto ho risolto sia per il primo
problema che per il secondo.
Do il codice:


Private Sub Form_Load()

                .Image = 1
                .ExpandedImage = 2
            End With
            Set nodx = .Add("BB" & rs!IDTipo, tvwChild)
            nodx.Tag = "TBD"
 
            rs.MoveNext
 
        Loop
    End With
 
End Sub
*****************************
Ciao. Fabrizio.


             .ExpandedImage = 2
cut
mettilo anche qui .image=1, cosi' ti compare l'icona di ramo chiuso anche
per la root.
Ciao
Sib



Ah si grazie l'aveo già fatto , ma ho postato prima di riprovare la
maschera.
Cmq fra un po' torno a postare sulla ListView che "me sta fa impazzì".
A parte il grosso rugamento di palle a capire come funzionano , c'è da
dire che risultano molto accativanti questi "affaretti" , meglio
dell'accoppiata casella combinata/casella di riepilogo (anche se la
trovo più veloce da usare).


 trovo piů veloce da usare).
Pare anche a me.
Sib