Πώς να Επεξεργασία TreeNode Από TreeView σε VB.NET

Η τοTreeViewστοιχείο ελέγχου της VB.NET πλαίσιο των Windows εμφανίζει μια ιεραρχική λίστα των στοιχείων των δεδομένων . Αποτελείται από τα TreeNodes . Μπορείτε να αποκτήσετε πρόσβαση σε μια TreeNode κάνοντας κλικ στο κουμπί TreeView στην VB.NET Toolbox σε μια φόρμα ή άλλο έλεγχο VB.NET στην εφαρμογή σας . Θα δημιουργήσει ένα δείκτη προς τη θέση κόμβου ελέγχου TreeView . Θα πρέπει να ορίσετε μια αξία του ακινήτου ετικέτας TreeView προκειμένου να επεξεργαστούν ένα TreeNode από το TreeView σε VB.NET . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Έναρξη " των Windows . Επιλέξτε " Microsoft Office " και " Microsoft Visual Studio . " 2

Κάντε κλικ στο " Άνοιγμα" και επιλέξτε πρόγραμμα της Visual Basic σας με το TreeView που θέλετε να επεξεργαστείτε .
Εικόνων 3

Προσθέστε τον ακόλουθο κώδικα μετά τη γραμμή " CurrentDb.Execute strSQL " στο πρόγραμμά σας :

Private Sub treeView1_MouseDown ( αποστολέα ως αντικείμενο, _

e Όπως System.Windows.Forms.MouseEventArgs )

mySelectedNode = treeView1.GetNodeAt ( eX , τΈ )

End Sub

Private Sub menuItem_Click ( αποστολέα ως αντικείμενο, ε. Όπως System.EventArgs )

Αν όχι ( mySelectedNode δεν είναι τίποτα ) Και _

Όχι ( mySelectedNode.Parent δεν είναι τίποτα ) Στη συνέχεια

treeView1.SelectedNode = mySelectedNode

treeView1.LabelEdit = True

Αν δεν mySelectedNode.IsEditing τότε

mySelectedNode.BeginEdit ( )

End If

Else

MessageBox.Show ( "No κόμβο του δένδρου . " & _

Microsoft.VisualBasic.ControlChars.Cr & _

" Επεξεργασία δεν επιτρέπεται . " , " σφάλμα Selection " )

End If

End Sub

Private Sub treeView1_AfterLabelEdit ( αποστολέα ως αντικείμενο, _

e Όπως System.Windows.Forms.NodeLabelEditEventArgs )

Αν όχι ( e.Label δεν είναι τίποτα ) Στη συνέχεια,

Αν e.Label.Length > 0 τότε

Εάν e.Label.IndexOfAny ( New Char ( ) { "@ " c " . " c " , " c " " c} ) = -1 τότε

e.Node.EndEdit ( Ψευδές)

υπόλοιπα

e.CancelEdit = True

MessageBox.Show ( "Invalid δέντρο ετικέτα κόμβο . " & _

Microsoft.VisualBasic.ControlChars.Cr & _

" Οι έγκυροι χαρακτήρες είναι : '.' '@' , , ' , ', ' ! " , _

" Κόμβος Label Edit " )

e.Node.BeginEdit ( )

End If

Else

e.CancelEdit = True

MessageBox.Show ( "Invalid δέντρο ετικέτα κόμβο . " & _

Microsoft.VisualBasic.ControlChars.Cr & _

" Η ετικέτα δεν μπορεί να να είναι κενό " , " Κόμβος Label Edit " )

e.Node.BeginEdit ( )

End If

End If

End Sub

Αυτό θα δεσμεύει την TreeNode με το ποντίκι .
Η 4

Κάντε κλικ στο " Αρχείο" και "Αποθήκευση" για να αποθηκεύσετε την επεξεργασμένη TreeNode από το TreeView στο πρόγραμμά σας VB.NET .


εικόνων