'In questo esempio vedrete come può essere utilizzato il controllo aggiuntivo
'TreeView. Premete Ctrl + T per andare nella lista componenti
'mettete il segno di spunta su Microsoft Windows Common Controls 6.0
'Sono apparse diverse icone, tra queste ovviamente c'è la TreeView
'-----------------------------------------------------------------
'SINTASSI:
'-----------------------------------------------------------------
'Add(relativo, relazione, chiave, testo, immagine, immagineselezionata)
'NB: Tutti i parametri sono facoltativi eccetto "Text"
'-----------------------------------------------------------------
'Relativo: Indice di un nodo preesistente. La relazione tra il nuovo nodo
' e quello preesistente è indicato dal parametro successivo (relazione)
'Relazione: Specifica la posizione dell'oggetto node. Il 4, ad esempio,
' fa si che il nodo diventi
' un sottonodo di quello indicato in relativo
'Chiave: Stringa utilizzabile per recuperare l'oggetto Node
'Testo: Stringa visualizzata in Node
'Immagine: Indice dell'immagine in ListView
'Immagineselezionata: Indice dell'immagine ListView, visualizzato quando
' l'oggetto Node è selezionato
'
'Esaminate per bene il codice e avviate il programma. Noterete subito che
'a fianco a "Form", "Proprietà" ed "Eventi" c'è una "+". Sta ad indicare che quel nodo
'contiene altri oggetti.
'
Private Sub Form_Load()
'Dichiaro una variabile di tipo Node
Dim y As Node
'Uso With per evitare di scrivere ogni volta
'tv.Nodes.Add(...)
With tv.Nodes
Set y = .Add(, , "a", "Form")
Set y = .Add("a", 4, "a1", "Proprietà")
Set y = .Add("a1", 4, "a2", "Name")
Set y = .Add("a1", 4, "a3", "Appearance")
Set y = .Add("a1", 4, "a4", "AutoRedraw")
Set y = .Add("a1", 4, "a5", "BackColor")
Set y = .Add("a1", 4, "a6", "BorderStyle")
Set y = .Add("a1", 4, "a7", "Caption")
Set y = .Add("a1", 4, "a8", "ClipControls")
Set y = .Add("a1", 4, "a9", "...")
Set y = .Add("a", 4, "b", "Eventi")
Set y = .Add("b", 4, "b1", "Load")
Set y = .Add("b", 4, "b2", "Activate")
Set y = .Add("b", 4, "b3", "Click")
Set y = .Add("b", 4, "b4", "DblClick")
Set y = .Add("b", 4, "b5", "Deactivate")
Set y = .Add("b", 4, "b6", "DragDrop")
Set y = .Add("b", 4, "b7", "...")
End With
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'Termino il programma
MsgBox "By Roberto VB - 5/8/2007"
End
End Sub