trädvyn kontroll över VB.NET Windows Framework visar en hierarkisk lista över dataelement . Den består av TreeNodes . Du kan komma åt en TreeNode genom att klicka på TreeView knappen i VB.NET Toolbox på en eller annan form VB.NET kontroll i din ansökan . Det kommer att skapa en pekare till TreeView styrnod plats . Du måste ange ett värde av TreeView etiketten egendom för att redigera en TreeNode från TreeView i VB.NET . Instruktioner
1
Klicka på "Start " -knappen i Windows . Välj " Microsoft Office " och " Microsoft Visual Studio . "
2
Klicka på "Öppna " och välj ditt Visual Basic-program med TreeView du vill redigera .
3
Lägg till följande kod efter " CurrentDb.Execute strSQL " linje i ditt program :
Private Sub treeView1_MouseDown ( avsändare As Object , _
e Som System.Windows.Forms.MouseEventArgs ) katalog
mySelectedNode = treeView1.GetNodeAt ( ex, Ey ) katalog
End Sub
Private Sub menuItem_Click ( avsändare As Object , e Som System.EventArgs ) katalog
Om inte ( mySelectedNode Is Nothing ) Och _
inte ( mySelectedNode.Parent Is Nothing ) Sen
treeView1.SelectedNode = mySelectedNode
treeView1.LabelEdit = Sant
p Om inte mySelectedNode.IsEditing Sedan
mySelectedNode.BeginEdit ( ) katalog
End If
Else
MessageBox.Show ( " No trädnod . " & _
Microsoft.VisualBasic.ControlChars.Cr & _
" Redigering är inte tillåtet . " , " Selection error " ) katalog
End If
End Sub
Private Sub treeView1_AfterLabelEdit ( avsändare As Object , _
e Som System.Windows.Forms.NodeLabelEditEventArgs ) katalog p Om inte ( e.Label Is Nothing ) Sedan
Om e.Label.Length > 0 Then
p Om e.Label.IndexOfAny ( New Char ( ) { " @ " C " . " c " , " c ", " c } ) = -1 Då
e.Node.EndEdit ( False ) katalog
Else
e.CancelEdit = Sant
MessageBox.Show ( " Ogiltig trädnod etikett . " & _
Microsoft.VisualBasic.ControlChars.Cr & _
" De ogiltiga tecken är : ' @ ' , , ' , ' , ' ' . ' ! ' " , _
" Node Label Edit " ) katalog
e.Node.BeginEdit ( ) katalog
End If
Else
e.CancelEdit = Sant
MessageBox.Show ( " Ogiltig trädnod etikett . " & _
Microsoft.VisualBasic.ControlChars.Cr & _
" etiketten kan inte vara tom " , " Node Label Edit " ) katalog
e.Node.BeginEdit ( ) katalog
End If
End If
End Sub
Detta kommer att binda TreeNode med muspekaren .
4
Klicka på " File " och " Spara " för att spara den redigerade TreeNode från TreeView i din VB.NET program .
Addera
