Visual Basic 2008 中 TreeView的使用方法

页面导航:首页 > 软件编程 > vb.net > Visual Basic 2008 中 TreeView的使用方法

Visual Basic 2008 中 TreeView的使用方法

来源: 作者: 时间:2016-01-18 16:54 【

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click #39;添加根节点 TreeView1.Nodes.Add(公卫科) TreeVi...
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '添加根节点
        TreeView1.Nodes.Add("公卫科")
        TreeView1.Nodes.Add("收费室")
        TreeView1.Nodes.Add("化验室")
        TreeView1.Nodes.Add("骨伤科")
        '添加子节点
        TreeView1.Nodes(0).Nodes.Add("姚明")
        TreeView1.Nodes(1).Nodes.Add("董迎春")
        TreeView1.Nodes(2).Nodes.Add("徐建强")
        TreeView1.Nodes(3).Nodes.Add("雷笑旺")
        '添加子节点下的子节点
        TreeView1.Nodes(0).Nodes(0).Nodes.Add("1")
        TreeView1.Nodes(1).Nodes(0).Nodes.Add("2")
        TreeView1.Nodes(2).Nodes(0).Nodes.Add("3")
        TreeView1.Nodes(3).Nodes(0).Nodes.Add("4")
        '' 展开第二个根节点
        TreeView1.Nodes(1).Expand()
        '展开第二个根节点的第一个节点
        TreeView1.Nodes(1).Nodes(0).Expand()
    End Sub 
    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        '当前选定的值
        TextBox1.Text = TreeView1.SelectedNode.Text
        '获得当前节点的父节点
        Try
            TextBox2.Text = TreeView1.SelectedNode.Parent.Text
        Catch ex As Exception
            MsgBox(ex.Message & vbCrLf & "已是根节点")
        End Try
    End Sub
End Class
 
Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<