Le contrôle TreeView de VB.NET sous Windows Framework affiche une liste hiérarchique des éléments de données . Il se compose des TreeNodes . Vous pouvez accéder à un TreeNode en cliquant sur le bouton TreeView en VB.NET Boîte à outils sur un formulaire ou un autre contrôle VB.NET dans votre application. Il va créer un pointeur à l'emplacement du nœud de contrôle TreeView. Vous devez définir une valeur de la propriété label TreeView afin de modifier un TreeNode à partir de l'arborescence en VB.NET . Instructions
1

Cliquez sur le bouton " Démarrer" de Windows. Sélectionnez « Microsoft Office » et « Microsoft Visual Studio ».
2

Cliquez sur "Ouvrir" et sélectionnez votre programme Visual Basic avec l'arborescence que vous souhaitez modifier .
3

Ajoutez le code suivant après la ligne " CurrentDb.Execute strSQL " dans votre programme :

Sous treeView1_MouseDown privé ( expéditeur As Object , _

e Comme System.Windows.Forms.MouseEventArgs )

mySelectedNode = treeView1.GetNodeAt ( Ex, Ey )

End Sub Private Sub

menuItem_Click (sender As Object , e As System.EventArgs )
< p > If Not ( mySelectedNode Is Nothing ) et _

Non ( mySelectedNode.Parent Is Nothing ) Puis

treeView1.SelectedNode = mySelectedNode

treeView1.LabelEdit = True

If Not mySelectedNode.IsEditing Puis

mySelectedNode.BeginEdit ()

End If Else

MessageBox.Show (" Pas de nœud de l'arbre . "& _

Microsoft.VisualBasic.ControlChars.Cr & _

« Édition n'est pas autorisée. "," erreur de sélection »)

End If
< p > End Sub Private Sub

treeView1_AfterLabelEdit (sender As Object , _

e Comme System.Windows.Forms.NodeLabelEditEventArgs )

If Not ( e.Label Is Nothing ) Then Photos

Si e.Label.Length > 0 Then

Si e.Label.IndexOfAny (New Char () {" @" c " . " c " , " c " " c }) = -1 Puis

e.Node.EndEdit (Faux)

Else

e.CancelEdit = True

MessageBox.Show ( «label de noeud de l'arbre non valide." & _

Microsoft.VisualBasic.ControlChars.Cr & _

" Les caractères non valides sont: '@' , ' ', ' '. ' ! ", _

" Node label Edit " )

e.Node.BeginEdit ()

End If Else

< p > e.CancelEdit = True

MessageBox.Show (" étiquette de nœud d'arborescence non valide." & _

Microsoft.VisualBasic.ControlChars.Cr & _

« L'étiquette ne peut pas être vide "," Node label Edit " )

e.Node.BeginEdit ()

End If End If

End Sub

liera le TreeNode avec le pointeur de la souris .
4

Cliquez sur "Fichier " et "Enregistrer " pour enregistrer le TreeNode édité à partir de l'arborescence de votre programme VB.NET .