110,533
社区成员
发帖
与我相关
我的任务
分享
Public Class Form1
Private TestTree As TreeView
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TestTree = New TreeView
AddHandler TestTree.NodeMouseDoubleClick, AddressOf NodeDoubleClick
For i As Integer = 0 To 10
Dim n As New TreeNode(String.Format("一级节点-Node{0}", i.ToString))
For j As Integer = 0 To 10
Dim nn As New TreeNode(String.Format("二级节点-Node{0}-{1}", i.ToString, j.ToString))
For k As Integer = 0 To 10
Dim nnn As New TreeNode(String.Format("三级节点-Node{0}-{1}-{2}", i.ToString, j.ToString, k.ToString))
nn.Nodes.Add(nnn)
Next
n.Nodes.Add(nn)
Next
TestTree.Nodes.Add(n)
Next
TestTree.Dock = DockStyle.Fill
Me.Controls.Add(TestTree)
End Sub
Private Sub NodeDoubleClick(ByVal sender As Object, ByVal e As TreeNodeMouseClickEventArgs)
If e.Node.Level >= 2 Then
MsgBox(e.Node.Text, MsgBoxStyle.Information, "Info")
Else
MsgBox("由于节点Level<2,不显示Text。")
End If
End Sub
End Class