控件基础--treeview属性和方法介绍

时间:2024-02-18 09:51:58

1、autoselect=”false”:当访问者在treeview控件中对节点进行定位时,可以使用键盘上的箭头来进行定位。属性值为“false“,则不允许这样做。

  2、Showplus=”true”:当两个节点收到一起的时候,你可以显示一个加号(+),访问者就知道这个节点可以展开,该属性值为“true“将使用加号,否则不使用。

  3、Showlines=”true”:在一个treeview控件中的两个节点之间,可以显示一些线长,为”true”显示。

  4、Expandlevel=2:用来定义treeview控件的层次结构展开的级别数。

  5、navigateurl:点击节点时的跳转网址

 6、index:获取树节点在树节点集合中的位置

  7、nodes:获取分配给树视图控件的树节点集合

  8、parent:获取或设置控件的父容器

  9、selectednode:获取或设置当前在树视图控件中选定的树节点

  10、text:获取或设置在树节点标签中显示的文本

  11、expand:展开树节点

  12、clear:清空树

  13、remove:移除当前树节点

  14、checked:用以指明该树节点是否处于选中状态

例子:

 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        \'在此处放置初始化页的用户代码

        If Not IsPostBack Then

            \'  Me.AddSingleNode(Nothing, "0") \'找出根节点

            Dim da As New SqlDataAdapter
            Dim cmd1 As New SqlCommand
            Dim ds As New DataSet
            Dim dr As SqlDataReader

            cmd1.Connection = cnTest
            cmd1.CommandType = CommandType.Text
            cmd1.CommandText = "SELECT * FROM tbl_test1 "
            cnTest.Open()
            da.SelectCommand = cmd1
            da.Fill(ds, "tbl_test1")
            cnTest.Close()
            Dim dt As DataTable = ds.Tables(0)
            \'从数据库抓出数据
            Me.AddNodes(dt, Nothing, "0") \'添加节点
            Me.TreeView3.SelectedNodeIndex = "" \'不选中任何节点
        End If

    End Sub
    Private Sub AddNodes(ByVal dt As DataTable, ByVal node As TreeNode, ByVal id As String) \'

        Dim rows As DataRow() = dt.Select(("parentID=" + id)) \'筛选出属于父节点 “node”的子节点集合
        Dim dr As DataRow
        For Each dr In rows  \'循环子节点集合
            Dim nd As New TreeNode

            nd.NavigateUrl = dr("url").ToString() \'设置浏览的网址
            nd.NodeData = dr("treeID").ToString() \'存放节点 ID
            nd.Text = dr("treeName").ToString() \'设置节点名称
            Me.AddNodes(dt, nd, nd.NodeData) \'递归,添加该节点的子节点
            If node Is Nothing Or id = "0" Then
                Me.TreeView3.Nodes.Add(nd) \'添加至根节点
            Else
                node.Nodes.Add(nd) \'添加子节点
            End If
        Next dr
    End Sub \'AddNodes