.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
TreeView控件的双击事件

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

作者:(ZJH135 张均洪)

本例实现双击节点,弹出对话框并显示节点信息

先对treeview1加入些数据,代码如下:

Sub Example()

        Dim N As New TreeNode, I As Integer, J As Integer

        For I = 0 To 3

            With N.Nodes.Add((I * 15).ToString & "-" & ((I + 1) * 15 - 1).ToString)

                For J = 0 To 14

                    .Nodes.Add((J + I * 15).ToString)

                Next

            End With

        Next

        Dim NodeToAdd As TreeNode

        For I = 1 To 24

            NodeToAdd = N.Clone

            NodeToAdd.Text = I.ToString

            TreeView1.Nodes.Add(NodeToAdd)

        Next

End Sub

 

Treeview1_click事件中加入如下代码:

 

Dim N As TreeNode = CType(sender, Windows.Forms.TreeView).SelectedNode

        '//如果树节点不为0,则显示提示信息,

        If N.GetNodeCount(False) = 0 Then

            '//当前节点的文本字符

            Dim S As String = N.Text

            '//如果字符长度为1,则在前而加0

            If S.Length = 1 Then

                S = S.Insert(0, "0") '//指定位置插入字符              

            End If

           '//上一树节点的字符加当前节点字符

 S = N.Parent.Text & ":" & S

//当然你还可以显示再上级节点的字符

//代码就变为:S=N.Parent.Parent.Text & : & S

            MessageBox.Show("你选择的节字符是: " & S)

     End If




相关文章

相关软件