Das TreeView-Steuerelement von VB.NET Windows- Rahmenprogramm zeigt eine hierarchische Liste der Datenelemente . Es besteht aus den TreeNodes . Sie können einen TreeNode indem Sie auf den Button in der TreeView VB.NET Toolbox auf ein Formular oder einen anderen VB.NET Steuerelement in Ihrer Anwendung zugreifen . Es wird ein Zeiger auf das TreeView-Steuerelement Knoten Speicherort zu erstellen . Sie müssen einen Wert des TreeView -Label -Eigenschaft , um ein TreeNode aus dem TreeView in VB.NET bearbeiten. Anleitung
1
Klicken Sie auf die Schaltfläche "Start" in Windows. Wählen Sie " Microsoft Office " und " Microsoft Visual Studio. "
2
Klicken Sie auf " Öffnen" und wählen Sie Ihre Visual Basic-Programm mit dem TreeView Sie bearbeiten möchten .
3
Fügen Sie den folgenden Code nach dem " CurrentDb.Execute strSQL " Zeile in Ihrem Programm :
private Sub treeView1_MouseDown ( sender As Object, _
e As 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 ) Und _
Not ( mySelectedNode.Parent Is Nothing ) Then
treeView1.SelectedNode = mySelectedNode
treeView1.LabelEdit = True
If Not mySelectedNode.IsEditing Dann
mySelectedNode.BeginEdit ()
End If Else
MessageBox.Show (" Kein Baum Knoten . "& _
Microsoft.VisualBasic.ControlChars.Cr & _
" Bearbeiten ist nicht erlaubt. "," Selection error " ) End If
< p > End Sub private Sub
treeView1_AfterLabelEdit ( sender As Object, _
e As System.Windows.Forms.NodeLabelEditEventArgs )
If Not ( e.Label Is Nothing ) Then
Wenn e.Label.Length > 0 Then
Wenn e.Label.IndexOfAny (New Char ( ) { "@ " c " . " c "," c " " c } ) = -1 Then
e.Node.EndEdit (False)
Else
e.CancelEdit = True
MessageBox.Show ( "Invalid Strukturknotenbezeichnung . " & _
Microsoft.VisualBasic.ControlChars.Cr & _
" Die ungültigen Zeichen sind: '@' , ' ,', ' '. ' ! ' ", _
" Node Label- Edit " )
e.Node.BeginEdit ()
End If Else
< p > e.CancelEdit = True
MessageBox.Show ( "Invalid Strukturknotenbezeichnung . " & _
Microsoft.VisualBasic.ControlChars.Cr & _
" Das Etikett kann nicht leer sein "," Node Label- Edit " )
e.Node.BeginEdit ()
End If End If
End Sub
