.NET World - Inizializzare una TreeView con VB.Net

Programmi ~ Forum ~ Blog ~ Community ~ Project Zone ~ Supportaci ~ Feeds

Feeds

Sondaggio

Condividi

Entra nel nostro gruppo su FB!

Numeri

Programmi: 2537
Articoli: 586
Progetti: 331
Sorgenti: 3625
Topics: 19739
Membri: 288

Forum - .NET World - Inizializzare una TreeView con VB.Net

gl1963 (Normal User)
Newbie

Messaggi: 9
Iscritto: 01/09/2010

Pollice su

0 (0%)

Postato alle 15:45
Martedì, 24/01/2012

Codice sorgente - presumibilmente VB.NET

Dim wkNode As TreeNode
 
        With Tree1
 
            .Nodes.Clear()
 
            .Nodes.Add("KeyA", "Text A")
            .Nodes.Add("KeyB", "Text B")
            .Nodes.Add("KeyC", "Text C")
 
            wkNode = .Nodes("KeyA")
            wkNode.Nodes.Add("KeyA1", "Text A1")
            wkNode.Nodes.Add("KeyA2", "Text A2")
 
            wkNode = .Nodes("KeyB")
            wkNode.Nodes.Add("KeyB1", "Text B1")
            wkNode.Nodes.Add("KeyB2", "Text B2")
            wkNode.Nodes.Add("KeyB3", "Text B3")
 
            wkNode = .Nodes("KeyA")
            wkNode = wkNode.Nodes("KeyA1")
            wkNode.EnsureVisible()
            wkNode.Nodes.Add("KeyA11", "Text A11")
            wkNode.Nodes.Add("KeyA12", "Text A12")
 
            wkNode = .Nodes("KeyA")
            wkNode = wkNode.Nodes("KeyA1")
            wkNode = wkNode.Nodes("KeyA12")
            wkNode.EnsureVisible()
            wkNode.Nodes.Add("KeyA121", "Text A121")
            wkNode.Nodes.Add("KeyA122", "Text A122")
 
        End With

Un saluto a tutti.
Ho un problema abbastanza banale.
Per cercare di capire come si inizializza una TreeView con Visual Basic 2008 Express Edition sto facendo alcune prove con il codice che ho riportato.
Gli elementi a livello maggiore di 1 spariscono quando chiudo e riapro i nodi cliccando sul [+] e successivamente sul [-].
Qualcuno sa dirmi per favore dove sto sbagliando??
Spero di essere stato abbastanza chiaro.
Grazie comunque in anticipo.

GiovanniLuigi

mattia1481 (Member)
Pro

Messaggi: 55
Iscritto: 03/11/2008

Pollice su

8 (56%)

Postato alle 17:03
Martedì, 24/01/2012

Allora, non ho ben capito cosa desideri, ma posso dirti che con le operazioni delle righe 11 ; 20 ; 26 stai rimuovendo i nodi da Tree1 per inserirli in WkNode.

?? - Il Totem - 25/01/12 09:43

Ti ho inviato una mail dove ho spiegato un po' più in dettaglio il problema. Ad ogni modo devo fare altre prove. Comunque grazie per la risposta. - gl1963 - 30/01/12 08:30

Mattia Riviera

GN (Member)
Guru

Messaggi: 293
Iscritto: 30/04/2011

Pollice su

12 (84%)

Postato alle 22:13
Martedì, 24/01/2012

Se vuoi costruire questa struttura:
-Text A
--Text A1
--Text A2
--Text A11
---Text A121
--Text A12
---Text A122
-Text B
--Text B1
--Text B2
--Text B3
-Text C

Devi fare semplicemente:

Codice sorgente - presumibilmente VB.NET

Dim A As New TreeNode("Text A")
Dim A1 As New TreeNode("Text A1")
Dim A2 As New TreeNode("Text A2")
Dim A11 As New TreeNode("Text A11")
Dim A121 As New TreeNode("Text A121")
Dim A12 As New TreeNode("Text A12")
Dim A122 As New TreeNode("TextA122")
Dim B As New TreeNode("Text B")
Dim B1 As New TreeNode("Text B1")
Dim B2 As New TreeNode("Text B2")
Dim B3 As New TreeNode("Text B3")
Dim C As New TreeNode("Text C")
A11.Nodes.Add(A121)
A12.Nodes.Add(A122)
A.Nodes.Add(A1)
A.Nodes.Add(A2)
A.Nodes.Add(A11)
A.Nodes.Add(A12)
B.Nodes.Add(B1)
B.Nodes.Add(B2)
B.Nodes.Add(B3)
Tree1.Nodes.Add(A)
Tree1.Nodes.Add(B)
Tree1.Nodes.Add(C)

Ti ringrazio, quando avrò un attimo farò un po' di prove. - gl1963 - 30/01/12 08:27

Ok. - GN - 30/01/12 21:30

Per favore se potete scaricate, votate e\o commentate il mio programma GN DrawCenter!