The Utforsker kontroll over VB.NET Windows Framework viser en hierarkisk liste over dataelementer . Det består av TreeNodes . Du får tilgang til en TreeNode ved å klikke på Utforsker -knappen i VB.NET Toolbox på en eller annen form VB.NET kontroll i programmet. Det vil skape en peker til Utforsker kontroll node plassering . Du må sette en verdi av Utforsker etiketten eiendom for å redigere en TreeNode fra Utforsker i VB.NET . Instruksjoner
en
Klikk på "Start "-knappen i Windows. Velg " Microsoft Office " og " Microsoft Visual Studio. "
2
Klikk "Open " og velg din Visual Basic program med Utforsker du vil redigere.
3
Legg til følgende kode etter " CurrentDb.Execute strSQL "-linjen i ditt program : en
Private Sub treeView1_MouseDown ( avsenderen som objekt , _
e Som System.Windows.Forms.MouseEventArgs )
mySelectedNode = treeView1.GetNodeAt ( eX , ey )
End Sub
Private Sub menuItem_Click ( avsenderen som objekt , e Som System.EventArgs )
< p > Hvis ikke ( mySelectedNode er ingenting ) Og _
Not ( mySelectedNode.Parent er ingenting ) Så
treeView1.SelectedNode = mySelectedNode
treeView1.LabelEdit = sant
p Hvis ikke mySelectedNode.IsEditing Deretter
mySelectedNode.BeginEdit ( )
End If
Else
MessageBox.Show ("No treet node. "& _
Microsoft.VisualBasic.ControlChars.Cr & _
" Editing er ikke tillatt . "," Selection error ")
End If
< p > End Sub
Private Sub treeView1_AfterLabelEdit ( avsenderen som objekt , _
e Som System.Windows.Forms.NodeLabelEditEventArgs )
p Hvis Not ( e.Label er ingenting ) Så
p Hvis e.Label.Length > 0 Then
p Hvis e.Label.IndexOfAny (New Char ( ) {" @ " c : ". " c ", " c ", " c } ) = -1 Da
e.Node.EndEdit ( False )
Else
e.CancelEdit = sant
MessageBox.Show ( " Ugyldig treet node etiketten. " & _
Microsoft.VisualBasic.ControlChars.Cr & _
" De ugyldige tegn er: '@ ' , ' , ', ' '. ' ! ' ", _
" Node Etikett Edit " )
e.Node.BeginEdit ( )
End If
Else
< p > e.CancelEdit = sant
MessageBox.Show ( " Ugyldig treet node etiketten. " & _
Microsoft.VisualBasic.ControlChars.Cr & _
" etiketten kan ikke være blank " , " Node Etikett Edit " )
e.Node.BeginEdit ( )
End If
End If
End Sub
p Dette vil binde TreeNode med musepekeren .
4
Klikk "Fil" og "Lagre " for å lagre det redigerte TreeNode fra Utforsker i VB.NET program.
