De treeviewcontrole van VB.NET Windows Framework wordt een hiërarchische lijst van gegevenselementen . Het bestaat uit de TreeNodes . U kunt toegang krijgen tot een TreeNode door te klikken op de knop TreeView in de VB.NET Toolbox op een formulier of andere VB.NET controle in uw toepassing . Het zal een pointer te creëren om de treeviewcontrole knooppunt locatie . U moet een waarde van de eigenschap label TreeView instellen om een TreeNode bewerken van de TreeView in VB.NET . Instructies
1 Klik op de knop 'Start' in Windows . Selecteer " Microsoft Office " en " Microsoft Visual Studio . " Kopen van 2 Klik op " Open" en selecteer uw Visual Basic-programma met de TreeView u wilt bewerken .
3 Voeg de volgende code na de " CurrentDb.Execute strSQL " regel in uw programma : Private Sub treeView1_MouseDown
( afzender als Voorwerp , _ e
Zoals System.Windows.Forms.MouseEventArgs ) mySelectedNode = treeView1.GetNodeAt ( eX , eY ) op Twitter End Sub
Private Sub menuItem_Click
( afzender als Voorwerp , e als System.EventArgs ) op Twitter If Not ( mySelectedNode Is Nothing ) _
Niet ( mySelectedNode.Parent Is Nothing ) dan treeView1.SelectedNode = mySelectedNode treeView1.LabelEdit
= True
En
Als Niet mySelectedNode.IsEditing dan mySelectedNode.BeginEdit
( ) End
Als
Else MessageBox.Show
( " No tree node. " & _ Microsoft.VisualBasic.ControlChars.Cr
& _
" Editing is niet toegestaan . " , " Selection error " ) Eind
Als
End Sub
Private Sub treeView1_AfterLabelEdit ( afzender als Voorwerp , _ e Zoals System.Windows.Forms.NodeLabelEditEventArgs
) op Twitter If Not ( e.Label Is Nothing ) Then
Als e.Label.Length > 0 Then
Als e.Label.IndexOfAny ( Nieuw Char ( ) { " @ " c , " . " c " , " c ", " c } ) = -1 e.Node.EndEdit ( False ) op
e.CancelEdit = True MessageBox.Show dan Else
( " ongeldige boomknooppunt label . " & _ Microsoft.VisualBasic.ControlChars.Cr
& _
" De ongeldige tekens zijn : ' @ ' , , ' , ' , ' ' . ' ! ' " _
, " Node Label Edit " ) e.Node.BeginEdit ( ) op End
Als
Else
e.CancelEdit = True MessageBox.Show
( " Invalid boomknooppunt label . " & _ Microsoft.VisualBasic.ControlChars.Cr
& _ " Het label
niet kan leeg zijn " , " Node Label Edit " ) e.Node.BeginEdit ( ) op End
Als End
Als End Sub
Dit zal de TreeNode binden met de muisaanwijzer.
4 Klik op " File " en " Save " om de bewerkte TreeNode redden van de TreeView in uw VB.NET programma.
< br >
|
