Newsgroup: it.comp.appl.access
Titolo: TREEVIEW

Qualcuno è riuscito a creare delle mappe in access con l'oggetto ole
TREEVIEW (è l'interfaccia grafica con i "+" ed i "-" espandibili che compare
anche il'esplora risorse ecc.) ?????
Dovrebbe essere una figata programmarci delle funzioni di navigazione nella
base dati; se soltanto riuscissi ad usarlo.
Ho trovato l'oggetto nella cartella degli strumenti (in struttura maschera)
alla voce "Microsoft TreeView Control", ma non riesco a programmarlo.
Ciao grazie Luciano

 ha scritto nel messaggio
news:8u7fib$2k7$1...@nslave3.tin.it...

L'unico esempio funzionante che conosca è nella Sezione Download del Sito
Comune e si titola "Implementare un archivio di immagini" di Silvio Savoldi;
prova a scricarti quel database e prova a vedere come lo ha adoperato
Silvio.
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------

...ci ho sbattuto la testa anche io ma ne sono uscito vittorioso....per
fortuna e dopo tante seghe mentali sul da farsi, prove etc....ci sono
riuscito....se mi dai un esempio o mi posti quello che devi fare vedrņ di
aiutarti.....so cmq...che esiste anche un wizard per il treeview e a97...se
ti serve....credo di averlo ma non l'ho mai usato....io ci ho lavorato in
combinazione con il controllo listview cheha anche qualche cosa in
comune....combinati insieme hanno tutto quello che vuoi !
posta pure, vediamo cosa si puņ fare...frankkk
frank...@libero.it

 ha scritto nel messaggio
news:8u7fib$2k7$1...@nslave3.tin.it...

Utilizza il database  Northwind.mdb
- In una maschera aggiungi il controllo ImageList ,nome: objImage, inserisci
almeno due Images (file.ico).
- Aggiungi il controllo TreeView , nome: objTree
- Doppio clic sul controllo TreeView per visualizzare le proprietà del
controllo. Nella Proprietà  ImageList seleziona il controllo ImageList
Del db utilizziamo le tabelle Categorie e Corrieri
Nell'evento Su apertura della maschera chiama la Sub StockTree
Private Sub Form_Open(Cancel As Integer)
Call StockTree
End Sub
'Funzione per aggiungere gli oggetti Node
Sub StockTree()
    Dim objNode As Node
    Dim objTree As TreeView
    Dim rstCategoria As Recordset
    Dim rstCorriere As Recordset
    Dim intParentKey As Integer
    Set objTree = Me!objTree.Object
    objTree.Nodes.Clear
    'Costruisce la radice. 1 è l' index Images del controllo ImageList
    Set objNode = objTree.Nodes.Add(, , "Categoria", "Categoria", 1)
    intParentKey = objNode.Index
    objNode.ExpandedImage = 2 ' 2 è l' index Images del controllo ImageList
che apparirà dopo l'espansione
    Set rstCategoria = CurrentDb.OpenRecordset("SELECT *  FROM Categorie
ORDER BY NomeCategoria")
    If Not rstCategoria.EOF Then
        Do Until rstCategoria.EOF
            'Costruisce il figlio o il primo secondario
            Set objNode = objTree.Nodes.Add(intParentKey, tvwChild, "A" & _
            rstCategoria!IDCategoria, rstCategoria!NomeCategoria, 1)
            rstCategoria.MoveNext
        Loop
    End If
    'Costruisce la seconda radice.
    Set objNode = objTree.Nodes.Add(, , "Corrieri", "Corrieri", 1)
    intParentKey = objNode.Index
    objNode.ExpandedImage = 2
    Set rstCorriere = CurrentDb.OpenRecordset("SELECT *  FROM Corrieri ORDER
BY NomeSocietà")
    If Not rstCorriere.EOF Then
        Do Until rstCorriere.EOF
            Set objNode = objTree.Nodes.Add(intParentKey, tvwChild, "B" _
            & rstCorriere!IDCorriere, rstCorriere!NomeSocietà, 1)
            rstCorriere.MoveNext
        Loop
    End If
End Sub
    giuseppe

FICHISSIMO funziona !!!!!!!!
grazie Giuseppe.
Dove posso trovare un help a riguarno, se non sbaglio dovrebbe chiamarsi
comctr1.hlp   (manca nel mio computer)

 ha scritto nel messaggio
news:8ucosc$m7h$1...@nslave3.tin.it...

è presente sia in VB6 che in Developer Edition 97
se vuoi posso inviartelo via e-mail
    giuseppe

 news:8ucosc$m7h$1...@nslave3.tin.it...

