VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >

  • vb.net 教程 3-4 窗体编程 公共控件10 TreeView 3

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
上一节学习了从vs中利用编辑器手动编辑节点，本节主要谈谈使用代码来编辑节点，实际也就是对TreeNode的操作。
 
先看看窗体中控件的布局：
 
 
 
为了区别根节点和子节点，特地做了点区分。
 
窗体载入的时候，把ImageList中的图片载入4个ListView中，
 
ListView的SmallImageList属性设置为ImageList1;View属性设置为SmallIcon：
 
    Private Sub Form7_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For i As Integer = 0 To ImageList1.Images.Count - 1
            ListView1.Items.Add(New ListViewItem("", i))
            ListView2.Items.Add(New ListViewItem("", i))
            ListView3.Items.Add(New ListViewItem("", i))
            ListView4.Items.Add(New ListViewItem("", i))
        Next
 
    End Sub
添加根节点：
 
    '添加根节点
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim strNodeName As String = TextBox1.Text
        If ListView1.SelectedIndices.Count = 0 OrElse ListView2.SelectedIndices.Count = 0 Then
            MessageBox.Show("未选择根节点图标")
            Exit Sub
        End If
 
        Dim tnRoot As New TreeNode(strNodeName)
        tnRoot.ImageIndex = ListView1.SelectedIndices(0)
        tnRoot.SelectedImageIndex = ListView2.SelectedIndices(0)
 
        TreeView1.Nodes.Add(tnRoot)
    End Sub
其中TreeNode的构造函数之一：
 
 
 
然后再增加显示的图标（tnRoot.ImageIndex =……）和选中时候的图标（tnRoot.SelectedImageIndex =……）
 
同时请注意，判断是否已经在ListView1和ListView2中选择图标的代码：
 
If ListView2.SelectedIndices.Count = 0 OrElse ListView2.SelectedIndices.Count = 0 Then
 
 
删除根节点：
 
    '删除根节点
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If IsNothing(TreeView1.SelectedNode) Then Exit Sub
        Dim tnSelectedNode As TreeNode = TreeView1.SelectedNode
        If tnSelectedNode.Level = 0 Then
            TreeView1.Nodes.Remove(tnSelectedNode)
        Else
            MessageBox.Show("此按钮只用于删除根节点")
        End If
    End Sub
判断是否选中有节点的代码：
 
IsNothing(TreeView1.SelectedNode)
 
判断节点等级的代码：
 
tnSelectedNode.Level
 
如果是根节点，那么Level=0。
 
 
 
清除根节点，也就是清空TreeView：
 
    '清除根节点
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TreeView1.Nodes.Clear()
    End Sub
 
 
同样，子节点的操作：
 
添加子节点：
 
    '添加子节点
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        If IsNothing(TreeView1.SelectedNode) Then Exit Sub
 
        Dim tnSelectedNode As TreeNode = TreeView1.SelectedNode
        If ListView3.SelectedIndices.Count = 0 OrElse ListView4.SelectedIndices.Count = 0 Then
            MessageBox.Show("未选择节点图标")
            Exit Sub
        End If
        Dim strNodeName As String = TextBox2.Text
        Dim tnAddNode As New TreeNode(strNodeName, ListView3.SelectedIndices(0), ListView4.SelectedIndices(0))
 
        tnSelectedNode.Nodes.Add(tnAddNode)
    End Sub
首先判断是否已经选择了一个节点，如果选择了再添加：
 
 If IsNothing(TreeView1.SelectedNode) Then Exit Sub
 
 
这里用了TreeNode的另外一个构造函数
 
Dim tnAddNode As New TreeNode(strNodeName, ListView3.SelectedIndices(0), ListView4.SelectedIndices(0))
 
 
 
删除节点：
 
 
 
    '删除普通节点
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        If IsNothing(TreeView1.SelectedNode) Then Exit Sub
        Dim tnSelectedNode As TreeNode = TreeView1.SelectedNode
        If tnSelectedNode.Level <> 0 Then
            TreeView1.Nodes.Remove(tnSelectedNode)
        Else
            MessageBox.Show("此按钮只用于删除普通节点")
        End If
    End Sub
清除子节点：
 
 
 
 
 
 
 
 
 
 
 
    '清除当前节点下的所有子节点
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If IsNothing(TreeView1.SelectedNode) Then Exit Sub
        Dim tnSelectedNode As TreeNode = TreeView1.SelectedNode
        If tnSelectedNode.Nodes.Count > 0 Then
            tnSelectedNode.Nodes.Clear()
        Else
            MessageBox.Show("此节点下没有子节点")
        End If
    End Sub
 
 
 
 
 
 
 
 
 
 
 
 
学习更多vb.net知识，请参看 vb.net 教程 目录
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/uruseibest/article/details/72904975

相关教程