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