Il controllo TreeView di VB.NET di Windows Framework visualizza un elenco gerarchico di elementi di dati. Si compone di TreeNodes. È possibile accedere a un TreeNode facendo clic sul pulsante di TreeView in VB.NET Toolbox in un modulo o un altro controllo VB.NET nell'applicazione. Si creerà un puntatore alla posizione nodo di controllo TreeView. È necessario impostare un valore della proprietà dell'etichetta TreeView al fine di modificare un TreeNode dal TreeView in VB.NET.

istruzione

1 Fare clic sul pulsante "Start" di Windows. Selezionare "Microsoft Office" e "Microsoft Visual Studio."

2 Fai clic su "Apri" e selezionare il programma di Visual Basic con la TreeView che si desidera modificare.

3 Aggiungere il seguente codice dopo la riga "CurrentDb.Execute strSQL" nel programma:

Private Sub TreeView1

MouseDown (mittente come oggetto,

e come System.Windows.Forms.MouseEventArgs)

mySelectedNode = treeView1.GetNodeAt (eX, EY)

End Sub

Private Sub menuItem_Click (mittente come oggetto, e come System.EventArgs)

Se non (mySelectedNode è niente) e _

Not (mySelectedNode.Parent Is Nothing) Then

treeView1.SelectedNode = mySelectedNode

treeView1.LabelEdit = True

Se non mySelectedNode.IsEditing Poi

mySelectedNode.BeginEdit ()

Finisci se

Altro

MessageBox.Show("No tree node." & _

Microsoft.VisualBasic.ControlChars.Cr & _

"Modifica non è permesso.", "Errore di Selezione")

Finisci se

End Sub

Private Sub TreeView1 AfterLabelEdit (mittente come oggetto,

e come System.Windows.Forms.NodeLabelEditEventArgs)

Se non (e.Label è niente) Poi

If e.Label.Length > 0 Then

Se e.Label.IndexOfAny (Nuovo Char () { "@" c "." C "," C "," C}) = -1 Poi

e.Node.EndEdit (Falso)

Altro

e.CancelEdit = True

MessageBox.Show ( "etichetta nodo della struttura non valido." & _

Microsoft.VisualBasic.ControlChars.Cr & _

"I caratteri non validi sono: '@',, ',', '.' '!'", _

"Etichetta Modifica nodo")

e.Node.BeginEdit ()

Finisci se

Altro

e.CancelEdit = True

MessageBox.Show ( "etichetta nodo della struttura non valido." & _

Microsoft.VisualBasic.ControlChars.Cr & _

"L'etichetta non può essere vuoto", "Nodo Label Edit")

e.Node.BeginEdit ()

Finisci se

Finisci se

End Sub

Questo legherà il TreeNode con il puntatore del mouse.

4 Fai clic su "File" e "Salva" per salvare il TreeNode edito dalla TreeView nel programma VB.NET.