|
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 )
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
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
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 .
|
