VB Treeview控件的详细使用

合集下载

VB控件 treeview用法详解

VB控件 treeview用法详解

VB TreeView控件使用详解(2012-06-16 15:08:16)标签:分类:第一小时:学习直接用代码将数据填充到树控件中。

为什么要先学习直接用代码将数据填充到树控件中因为这种方法是最简单的,代码也最容易理解,学习树控件,先将这个学会,已经掌握了一半,所以先不要急着想怎么将表中的数据填充到树控件中,在第一小时里,树控件和表完全没有关系。

目的:我们要在树控件中建立如下的一个3层级关系水果||__苹果| |__红富士| |__国光||__葡萄|__红提子|__青提子解释:水果包含2种,一种是苹果,一种是葡萄,苹果又包含2种,一种是红富士,一种是国光,葡萄也如此。

在这里:“爷”是水果,“父”是苹果,葡萄,“子”是红富士,国光,红提子,青提子。

概括如下:爷(只能有一个):水果父(这里有2个):父1:苹果;父2:葡萄子(这里有4个):子1:红富士(父1苹果的子);子2:国光(父1苹果的子);子3:红提子(父2葡萄的子);子4:青提子(父2葡萄的子)1、新建一个窗体,在窗体上放置两个控件,一个是Treeview,一个是Imagelist如何找到这两个控件Treeview控件在“工具箱”的榔头加扳手图标(其他控件)中选“Microsoft Treeview Control,Version "Imagelist控件在“工具箱”的榔头加扳手图标(其他控件)中选“Microsoft Imagelist Control,Version "Treeview控件大家都明白干什么用的,Imagelist控件是干什么用呢原来这个控件是放图标用的,如果你想在树控件中显示图标的,这个图标都将储存在ImageList控件中。

2、设置这两个控件的属性首先要讲清楚控件的属性设置有2种,一种是设置这个控件在ACCESS中的属性,比如名称等。

一种是设置这个控件本身的属性。

要设置这个控件在ACCESS中的属性,选中控件后按鼠标右键选“属性”就可以了。

duilib treeview 用法总结

duilib treeview 用法总结

duilib treeview 用法总结下载温馨提示:该文档是我店铺精心编制而成,希望大家下载以后,能够帮助大家解决实际的问题。

文档下载后可定制随意修改,请根据实际需要进行相应的调整和使用,谢谢!并且,本店铺为大家提供各种各样类型的实用资料,如教育随笔、日记赏析、句子摘抄、古诗大全、经典美文、话题作文、工作总结、词语解析、文案摘录、其他资料等等,如想了解不同资料格式和写法,敬请关注!Download tips: This document is carefully compiled by the editor. I hope that after you download them, they can help you solve practical problems. The document can be customized and modified after downloading, please adjust and use it according to actual needs, thank you!In addition, our shop provides you with various types of practical materials, such as educational essays, diary appreciation, sentence excerpts, ancient poems, classic articles, topic composition, work summary, word parsing, copy excerpts, other materials and so on, want to know different data formats and writing methods, please pay attention!当今社会,随着信息化的发展,人们对于数据的展示和管理需求日益增加。

VB 6.0 treeview 运用

VB 6.0 treeview 运用

VB 6.0 treeview运用技术一览Option ExplicitDim I As IntegerDim J As IntegerDim nodx As NodeDim CunZai As Boolean '定义变量Private Sub Command1_Click()If Txt(0).Text <> "" And Txt(1).Text <> "" Then '不允许建立零字节的父节点和子节点CunZai = FalseJ = TreeView1.Nodes.CountFor I = 1 To TreeView1.Nodes.Count '检查新输入的父节点名称是否存在If TreeView1.SelectedItem.Children > 0 ThenIf Txt(0).Text = TreeView1.Nodes(I).Text Then CunZai = TrueEnd IfNext IIf CunZai = True Then '若存在, 则在父节点下建立子节点Set nodx = TreeView1.Nodes.Add(Txt(0).Text, tvwChild, "child" & J,Txt(1).Text, 3)Else ,若不存在,则建立父节点和子节点Set nodx = TreeView1.Nodes.Add(, , Txt(0).Text, Txt(0).Text, 1)Set nodx = TreeView1.Nodes.Add(Txt(0).Text, tvwChild, "child" & J,_Txt(1).Text, 3)End IfTreeView1.RefreshElseIf Txt(0).Text = "" Then MsgBox "请输入父节点名称!", vbInformation, "警告!"'系统提示ElseIf Txt(1).Text = "" Then MsgBox "请输入子节点名称!", vbInformation, "警告!"End IfEnd SubPrivate Sub Command2_Click()For I = 1 To TreeView1.Nodes.CountTreeView1.Nodes(I).Expanded = True '展开所有节点Next IEnd SubPrivate Sub Command3_Click()For I = 1 To TreeView1.Nodes.CountTreeView1.Nodes(I).Expanded = False '收起所有节点Next IEnd SubPrivate Sub Command4_Click()TreeView1.Sorted = True '排列顺序End SubPrivate Sub Command5_Click()If TreeView1.SelectedItem.Index <> 1 ThenTreeView1.Nodes.Remove TreeView1.SelectedItem.Index '删除选定的节点End IfEnd SubPrivate Sub Command6_Click()End '退出程序End SubPrivate Sub Form_Load()TreeView1.LineStyle =TvwTreeLines '在兄弟节点和父节点之间显示线TreeView1.ImageList = ImageList1 '链接图像列TreeView1.Style = tvwTreelinesPlusMinusPictureText'树状外观包含全部元素Set nodx = TreeView1.Nodes.Add(, , "蒲子明", "蒲子明", 1)'建立名称为"蒲子明"的父节点,选择索引为1的图像Set nodx = TreeView1.Nodes.Add("蒲子明", tvwChild, "child01", "收件箱", 3) '在"蒲子明"父节点下建立"收件箱"子节点,选择索引为3的图像Set nodx = TreeView1.Nodes.Add("蒲子明", tvwChild, "child02", "发件箱", 3) '在"蒲子明"父节点下建立"发件箱"子节点,选择索引为3的图像CunZai = FalseEnd SubPrivate Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node) Node.ExpandedImage = 2 '节点被展开时,选择索引为2的图像End SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) If TreeView1.SelectedItem.Children = 0 Then '检查是否有子节点,0为无For I = 1 To TreeView1.Nodes.CountIf TreeView1.Nodes(I).Selected ThenMsgBox "您选择的是:“" & TreeView1.Nodes(I).FullPath & "”子节点!"'系统提示End IfNext IEnd If End Sub。

treegridview 用法

treegridview 用法

一、什么是treegridview?treegridview 是一种常用的控件,它是基于 gridview 和 treeview 的组合,可以实现树形结构和表格数据的显示,可以展示出树形结构并具有表格的数据功能。

treegridview 是一种常用的控件,用法灵活,功能强大,可以满足各种复杂的数据展示需求。

二、treegridview 的基本用法1. 控件的引用首先需要引用 treegridview 控件,在项目中添加对 treegridview 的引用,引用方式一般是通过将相关的 DLL 文件添加到项目中,然后在项目的代码文件中添加对 treegridview 控件命名空间的引用。

2. 控件的初始化treegridview 控件的初始化工作一般包括设置控件的基本属性、绑定数据源和设置事件处理程序等。

需要注意的是,treegridview 控件的初始化工作一般是在页面加载事件中完成的,以确保在页面首次加载时能够正确显示数据。

3. 数据绑定treegridview 控件的数据绑定工作一般是通过设置控件的数据源来实现的。

在数据绑定过程中,需要注意确保数据源的结构能够正确地映射到树形结构和表格数据的显示需求。

4. 自定义样式treegridview 控件的样式可以通过设置控件的样式属性来实现。

控件的样式设置一般包括设置表头样式、行样式和单元格样式等。

通过自定义样式,可以使 treegridview 控件在页面中展示出符合项目需求的外观效果。

5. 事件处理treegridview 控件的事件处理工作一般包括设置控件的事件处理程序,并在事件处理程序中编写相应的逻辑代码。

在事件处理过程中,需要注意确保事件处理程序能够正确地响应用户操作,并能够对控件的数据进行相应的处理。

6. 控件的功能扩展treegridview 控件的功能还可以通过扩展控件的自定义列、自定义模板和自定义编辑等功能来实现。

通过扩展控件的功能,可以为项目定制出更符合实际需求的数据展示和操作界面。

TreeView控件实现节点拖曳功能,并更新数据库中节点的值

TreeView控件实现节点拖曳功能,并更新数据库中节点的值

TreeView控件实现节点拖曳功能,并更新数据库中节点的值1、建一Access数据库test.mdb,表名myTreeView,字段为:myNodeKey 文本myNodeName 文本myParent 文本myParentPath 文本添加记录:K001 节点1 Root Root.K002 节点2 Root Root.K003 节点3 Root Root.K004 节点4 Root Root.K005 节点5 Root Root.2、新建VB工程,在“引用”中加入ADO2.6,在“部件”中加入Microsoft Windows Common Controls 5.0。

3、在窗体上添加TreeView控件,命名为TreeView1;添加TextBox控件,命名为txtNodeName;添加Image控件,命名为IconImage,并在其Picture属性中加载一个Icon图标文件。

4、在窗体代码中添加:Private Conn As ADODB.ConnectionPrivate Const TreeRootTag As String = "Root" '根节点标记Private SourceNode As Object '定义节点拖曳的源节点Private TargetNode As Object '定义节点拖曳的目标节点Private Sub Form_Load()Dim strCnt As StringDim rs As New ADODB.RecordsetDim strJudgeKey As StringDim NodeX As NodeTreeView1.LineStyle = tvwRootLinesSet NodeX = TreeView1.Nodes.Add(, tvwFirst, TreeRootT ag, "根节点")NodeX.Expanded = True'加载TreeView控件数据strCnt = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False"Set Conn = New ADODB.ConnectionConn.CursorLocation = adUseClientConn.Open strCntrs.Open "Select * from myTreeView", Conn, adOpenKeyset, adLockReadOnlystrJudgeKey = TreeRootTagDo Until rs.EOFstrJudgeKey = rs("myParent") & ""Set NodeX = TreeView1.Nodes.Add(strJudgeKey, tvwChild, rs("myNodeKey") & "", rs("myNodeName") & "")NodeX.Expanded = Truers.MoveNextLooprs.CloseSet rs = NothingEnd Sub'当鼠标点击某节点时,在窗体上显示该节点的值Private Sub TreeView1_NodeClick(ByVal myNode As Node) Dim rs As ADODB.RecordsetIf myNode.Index = 1 ThentxtNodeName = myNode.KeyElseSet rs = New ADODB.Recordsetrs.Open "Select * from myTreeView where myNodeKey='" & myNode.Key & "'", Conn, adOpenKeyset, adLockReadOnly If Not rs.EOF ThentxtNodeName = rs("myNodeName") & ""End Ifrs.CloseSet rs = NothingEnd IfEnd Sub'当按下鼠标按钮时,取得源节点Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)'将鼠标指针下的对象赋值给源节点Set SourceNode = TreeView1.HitTest(x, y)'在窗体上显示该节点的值If Not (SourceNode Is Nothing) ThenCall TreeView1_NodeClick(SourceNode)End IfEnd Sub'当移动鼠标时Private Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = vbLeftButton Then '如果按下鼠标左键If Not (SourceNode Is Nothing) ThenSet TreeView1.SelectedItem = SourceNode '将源节点设为选定节点(蓝底显示)TreeView1.DragIcon = IconImage '设置拖曳时的鼠标指针图标TreeView1.Drag vbBeginDrag '开始拖动操作End IfEnd IfEnd Sub'当鼠标拖动时Private Sub TreeView1_DragOver(Source As Control, x As Single, y As Single, state As Integer)Dim target As NodeDim highlight As Boolean '该变量控制拖曳的目标节点是否有效Set target = TreeView1.HitTest(x, y)If target Is TargetNode Then Exit SubSet TargetNode = targethighlight = FalseIf Not (TargetNode Is Nothing Or SourceNode Is Nothing) Then'符合以下两种情况才可拖曳:'1、源节点不等于目标节点'2、源节点不是目标节点的前辈节点If TargetNode <> SourceNode And Not isEldershipNode(SourceNode, TargetNode) Thenhighlight = TrueEnd IfEnd IfIf highlight Then'拖曳有效,目标节点突出显示(蓝底显示)Set TreeView1.DropHighlight = TargetNodeElseSet TreeView1.DropHighlight = NothingEnd IfEnd Sub'当鼠标拖放完成时(释放了鼠标按钮)Private Sub TreeView1_DragDrop(Source As Control, x As Single, y As Single)If Not (TreeView1.DropHighlight Is Nothing) Then '有突出显示的节点,即目标节点拖曳有效If MsgBox("确认要拖曳到此处?", vbYesNo, g_Msgtitle) = vbYes ThenSet SourceNode.Parent = TreeView1.DropHighlight '将源节点的父节点设为目标节点DragSave TreeView1.DropHighlight.Key, SourceNode.Key '更新拖曳后数据库中的变动End IfSet TreeView1.DropHighlight = Nothing '取消突出显示End IfSet SourceNode = NothingEnd Sub'更新拖曳后的数据Private Sub DragSave(ParentNodeKey As String, ChildNodeKey As String)Dim rs As New ADODB.Recordset'更新源节点的父节点路径、父节点rs.Open "Select * from myTreeView Where myNodeKey='" & ChildNodeKey & "'", Conn, adOpenKeyset, adLockOptimistic If rs.RecordCount = 0 ThenExit SubEnd Ifrs("myParent") = ParentNodeKeyrs("myParentPath") = GetFatherNodePath(ParentNodeKey, TreeView1) & "."rs.Updaters.Close'更新源节点的子节点数据rs.Open "Select * from myTreeView Where myParent='" & ChildNodeKey & "'", Conn, adOpenKeyset, adLockOptimistic Do While Not rs.EOFDragSave ChildNodeKey, rs("myNodeKey") '递归调用rs.MoveNextLooprs.CloseSet rs = NothingEnd Sub'获得父节点路径Private Function GetFatherNodePath(strFatherNodeKey As String, tree1 As TreeView, Optional strSpliteTag = ".") As StringDim Nodx As NodeSet Nodx = tree1.Nodes(strFatherNodeKey)GetFatherNodePath = strFatherNodeKeyDoSet Nodx = Nodx.ParentIf Nodx Is Nothing Then Exit DoGetFatherNodePath = Nodx.Key & strSpliteTag & GetFatherNodePathLoopEnd Function'判断节点A是否为节点B的前辈节点Private Function isEldershipNode(NodeA As Node, NodeB As Node) As BooleanIf NodeB.Parent Is Nothing ThenisEldershipNode = False '如果节点B为根节点,那么节点A不是节点B的前辈节点ElseIf NodeB.Parent.Key = NodeA.Key ThenisEldershipNode = TrueElseisEldershipNode = isEldershipNode(NodeA, NodeB.Parent) '递归调用End IfEnd Function。

TreeView控件使用教程

TreeView控件使用教程

TreeView控件使用教程11. TreeView 控件TreeView 控件显示Node 对象的分层列表,每个Node 对象均由一个标签和一个可选的位图组成。

TreeView 一般用于显示文档标题、索引入口、磁盘上的文件和目录、或能被有效地分层显示的其它种类信息。

语法Treeview说明创建了TreeView 控件之后,可以通过设置属性与调用方法对各Node 对象进行操作,这些操作包括添加、删除、对齐和其它操作。

可以编程展开与折回Node 对象来显示或隐藏所有子节点。

Collapse、Expand 和NodeClick 三个事件也提供编程功能。

Node 对象使用Root、Parent、Child、FirstSibling、Next、Previous 和LastSibling 属性。

在代码中可通过检索对Node 对象的引用,从而在树上定位。

也可以使用键盘定位。

UP ARROW 键和DOWN ARROW 键向下循环穿过所有展开的Node 对象。

从左到右、从上到下地选择Node 对象。

若在树的底部,选择便跳回树的顶部,必要时滚动窗口。

RIGHT ARROW 键和LEFT ARROW 键也穿过所有展开的Node 对象,但是如果选择了未展开的Node之后再按RIGHT ARROW 键,该Node 便展开;第二次按该键,选择将移向下一个Node。

相反,若扩展的Node 有焦点,这时再按LEFT ARROW 键,该Node 便折回。

如果按下ANSI 字符集中的键,焦点将跳转至以那个字母开头的最近的Node。

后续的按该键的动作将使选择向下循环,穿过以那个字母开头的所有展开节点。

控件的外观有八种可用的替换样式,它们是文本、位图、直线和+/- 号的组合,Node 对象可以任一种组合出现。

TreeView 控件使用由ImageList 属性指定的ImageList 控件,来存储显示于Node 对象的位图和图标。

任何时刻,TreeView 控件只能使用一个ImageList。

VB中treeview控件的使用方法

VB中treeview控件的使用方法

VB中treeview控件的使用方法利用treeview控件可以获得驱动器下的所有目录和子目录,TreeView 控件最典型的使用就是Windows资源管理中显示文件夹列表的左边栏,现在我们就模仿它来做一个按树状结构显示指定盘符中所有文件夹的小程序。

一、准备知识:1、了解TreeView 控件的基本使用,掌握了如何添加树状结构的数据到TreeView 控件中,相关文章参看这里:入门——TreeView 控件的使用2、了解ImageList 控件的基本使用。

3、了解 System.IO 命名空间中的Directory 类的一些常用用法,下面我们先了解下本文要用到Directory类的成员GetDirectories:它用于获取指定目录中子目录的名称。

如下代码所示,获取C:盘下的子目录:Dim dirs As String() = Directory.GetDirectories("c:\")其结果是我们点开C盘后看到的文件夹,如果要获取更深层次的文件夹列表,就要一个一个文件夹循环使用Directory.GetDirectories方法。

二、窗体布局在窗体上拖放一个TreeView 控件,一个Button 按钮,一个ImageList 组件在ImageList 组件中按顺序添加如下三个图标,图标大小设置为16*16:图一:需要用到的图标三:编写代码首先,我们已经知道,要想获得树状结构的每个层次中的子文件夹,我们必须使用递归过程来完成,下面所示代码所执行的工作是:先把一个已经路径的文件夹添加到树状结构中,然后再遍历它的子文件夹:'添加文件夹Public Sub AddDirectory(ByVal strFatherPath As String, ByVal strPath As String, ByVal nodeFather As TreeNode)Dim i As IntegerDim node As New TreeNode'先添加本目录,从文件夹路径分析出文件夹名称node.Text = Strings.Replace(strPath, strFatherPath & "\", "", , 1)'为单个节点指定节点未被选中时显示的图标node.ImageIndex = 1'为单个节点指定节点被选中时显示的图标node.SelectedImageIndex = 2nodeFather.Nodes.Add(node)Application.DoEvents()TryDim str() As String = iDir.GetDirectories(strPath)'遍历该目录的子文件夹For i = 0 To str.GetUpperBound(0)AddDirectory(strPath, str(i), node)NextCatch ex As ExceptionDebug.WriteLine(ex.Message)End Trynode = NothingEnd Sub然后在按钮的Click事件中添加代码,用于添加树状结构的顶层以及调用遍历子文件的递归过程,详细代码如下:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim node As New TreeNode'先把C盘添加到树中TreeView1.Nodes.Clear()node.ImageIndex = 0node.Text = "本地磁盘C:"node.SelectedImageIndex = -1TreeView1.Nodes.Add(node)Dim i As Integer'获取C:盘根目录下的文件夹Dim str() As String = iDir.GetDirectories("C:\")For i = 0 To str.GetUpperBound(0)'调用遍历过程AddDirectory("C:", str(i), node)Nextnode = NothingEnd Sub*****************************************1、为树状浏览器控件添加节点和子节点用ADD方法添加一个新节点到树状浏览器的NODES集合时,可以声明它是和已存在的节点所联系起来的。

VBTreeView控件使用详解

VBTreeView控件使用详解

VBTreeView控件使用详解三小时快速掌握TreeView树状控件的使用。

能不能掌握控件的使用,是业余向准专业进步的关键。

虽然我本人不太喜欢用控件,因为基于不同的操作环境成品后效果很难保证。

但有些成熟控件,会使用还是能提高软件水平。

比如TREEVIEW控件,TREEVIEW控件,也叫树控件,主要用于层级显示和控制,应用广泛。

我一直很想学习这个控件的使用,但每次都没有学成,总感觉很难。

前几天有空,狠下心来将论坛搜索一遍,发现也不是太难,在很短时间内只要方法得当,很快可以掌握,因为我是菜鸟,所以用菜鸟的方法和大家交流,可能大家学得更快一点,只要你用心,三个小时一定可以掌握。

请大家一定要自己动手做,只有做才能理解,光看帮助和说明是没有用的。

热身:理解层级概念,层级理论上可以有无限级,一般用到四,五级也够用了。

最上级的只能有一个,我们把它叫做“爷”,接下来是“父”,再是“子”,再是“孙”,接下来是“曾孙”......,汇总如下:“爷,父,子,孙,曾孙”,这里是5级关系,除了“爷”只能有一个外,其余可以有无限个。

记住这些,下面要用。

第一小时:学习直接用代码将数据填充到树控件中。

为什么要先学习直接用代码将数据填充到树控件中?因为这种方法是最简单的,代码也最容易理解,学习树控件,先将这个学会,已经掌握了一半,所以先不要急着想怎么将表中的数据填充到树控件中,在第一小时里,树控件和表完全没有关系。

目的:我们要在树控件中建立如下的一个3层级关系水果||__苹果| |__红富士| |__国光||__葡萄|__红提子|__青提子解释:水果包含2种,一种是苹果,一种是葡萄,苹果又包含2种,一种是红富士,一种是国光,葡萄也如此。

在这里:“爷”是水果,“父”是苹果,葡萄,“子”是红富士,国光,红提子,青提子。

概括如下:爷(只能有一个):水果父(这里有2个):父1:苹果;父2:葡萄子(这里有4个):子1:红富士(父1苹果的子);子2:国光(父1苹果的子);子3:红提子(父2葡萄的子);子4:青提子(父2葡萄的子)1、新建一个窗体,在窗体上放置两个控件,一个是Treeview,一个是Imagelist如何找到这两个控件?Treeview控件在“工具箱”的榔头加扳手图标(其他控件)中选“Microsoft Treeview Control,Version 6.0"Imagelist控件在“工具箱”的榔头加扳手图标(其他控件)中选“Microsoft Imagelist Control,Version 6.0"Treeview控件大家都明白干什么用的,Imagelist控件是干什么用呢?原来这个控件是放图标用的,如果你想在树控件中显示图标的,这个图标都将储存在ImageList控件中。

VB6_0中TreeView控件的使用

VB6_0中TreeView控件的使用

1引言TreeView控件用于显示具有层次结构的数据,是一个Nodes(结点)集合。

集合中的每个Node对象均由一个标签和一个可选的位图组成,结点的图像由ImageList控件提供。

在Delphi、VFP、VB等各种语言中,都提供了TreeView控件,用树型结构来显示数据库信息,便用户对繁杂信息的查询。

2属性设置2.1添加TreeView控件选择工程|部件,打开“部件”对话框。

查找并选择MicroSoftWindowsCommonControl6.0(oledb)后,自动在工具箱中添加一组控件,其中包括TreeView控件。

在窗体上添加一个TreeView和一个Imagelist控件。

在Im-agelist中添加图片,设置TreeView的“图像列表”属性为Imagelist。

2.2向Nodes集合中添加Node对象使用Add方法将一个Node对象添加到树中。

其中包括两个参数:relative和relationship,它们确定节点被添加到何处。

Rela-tive指定节点名称,Relationship指定新加入的节点与名为relative的节点之间的关系。

语法格式:TreeView.Nodes.addRelative,Relationship,key,text,image其中文本参数text是必须的,其他参数不是必须的。

例如:创建根结点,结点的key是“A1”,text是“机械系”。

语句为:TreeView1.Nodes.Add,,"A1","机械系"同样添加根结点电气系。

语句为:TreeView1.Nodes.Add,,"A2","电气系"为A1结点添加子结点,汽车10021、机制10031。

语句为:TreeView1.Nodes.Add"A1",tvwChild,"A11","汽车10021"TreeView1.Nodes.Add"A1",tvwChild,"A12","机制10031"3分层显示数据库信息3.1数据库设计通常数据库中的表之间具有一对多的关系。

易语言树形框写法

易语言树形框写法

易语言树形框写法易语言中的树形框(TreeView)是一种用于显示层级结构数据的控件。

您可以使用以下代码来创建和操作树形框:1. 创建树形框控件:```vbTreeView.Create(父窗口句柄, 控件ID, 左边距, 上边距, 宽度, 高度) ```其中,父窗口句柄是树形框所属的窗口句柄,控件ID是树形框的标识,左边距、上边距、宽度和高度是树形框在窗口中的位置和尺寸信息。

2. 设置树形框属性:```vbTreeView.Set(控件ID, 属性, 值)```可以通过以上代码设置树形框的各种属性。

常用的属性包括背景颜色("bkcolor")、字体颜色("fontcolor")和字体大小("fontsize")等。

3. 添加树节点:```vbTreeView.AddItem(控件ID, 父节点ID, 节点ID, 节点文本, 图标索引) ```使用以上代码可以向树形框中添加树节点。

父节点ID为0表示添加一级节点,节点ID是新增节点的标识,节点文本是节点显示的文本内容,图标索引是节点显示的图标索引(可选)。

4. 获取选中的节点:```vbTreeView.GetSelectedNode(控件ID)```使用以上代码可以获取当前树形框中选中的节点ID。

该方法返回选中节点的标识,如果没有选中的节点,返回值为0。

5. 删除节点:```vbTreeView.DeleteItem(控件ID, 节点ID)```使用以上代码可以删除树形框中指定的节点及其所有子节点。

节点ID是要删除的节点的标识。

6. 清空树形框:```vbTreeView.Clear(控件ID)```以上代码可以清空树形框中的所有节点。

上述是树形框的基本操作示例,您可以根据需要结合具体的业务逻辑编写代码。

VB中Treeview 控件的使用方法

VB中Treeview 控件的使用方法

VB中Treeview 控件的使用方法相信很多编程爱好者都使用过网络蚂蚁或 FoxMail 软件,其软件运行主界面的左侧有一显示等级结构的树状外观控件,不仅美观大方,而且非常方便使用。

其实,在 VB 中利用 Treeview 控件很容易就能编写出同样效果的程序。

首先在 VB 中建立一个新工程,单击“工程/部件”,在控件列表中选中“Microsoft Windows command controls6.0(sp4)”,按下“确定”按钮返回主界面,在左侧控件窗体中选中 Treeview 控件置于窗体上,再放置一个Imagelist 控件、两个 Label 控件、两个Textbox 控件、六个 commandbutton控件,其属性分别如下:Treeview 控件:名称 Treeview1;Imagelist 控件:名称 Imagelist1,并在该控件中放置三张个性图片(32×32),建立索引1、2、3;(方法:在Imagelist 控件上单击鼠标右键选择属性)Label 控件:名称分别为Lab(0)、Lab(1),Caption分别为“父节点:”、“子节点:”;Textbox 控件:名称分别为Txt(0)、Txt(1),text都为“”;commandbutton 控件:名称为系统默认,Caption分别为“添加”、“展开”、“收起”、“排序”、“删除”、“退出”;将下列代码加入到代码框:Option ExplicitDim I As IntegerDim J As IntegerDim nodx As NodeDim CunZai As Boolean '定义变量Private Sub Command1_Click()If Txt(0).Text <> "" And Txt(1).Text <> "" Then '不允许建立零字节的父节点和子节点CunZai = FalseJ = TreeView1.Nodes.CountFor I = 1 To TreeView1.Nodes.Count '检查新输入的父节点名称是否存在If TreeView1.SelectedItem.Children > 0 ThenIf Txt(0).Text = TreeView1.Nodes(I).Text Then CunZai = TrueEnd IfNext IIf CunZai = True Then '若存在, 则在父节点下建立子节点Set nodx = TreeView1.Nodes.Add(Txt(0).Text, tvwChild, "child" & J,Txt(1).Text, 3)Else ,若不存在,则建立父节点和子节点Set nodx = TreeView1.Nodes.Add(, , Txt(0).Text, Txt(0).Text, 1)Set nodx = TreeView1.Nodes.Add(Txt(0).Text, tvwChild, "child" & J,_Txt(1).Text, 3)End IfTreeView1.RefreshElseIf Txt(0).Text = "" Then MsgBox "请输入父节点名称!", vbInformation, "警告!" '系统提示ElseIf Txt(1).Text = "" Then MsgBox "请输入子节点名称!", vbInformation, "警告!" End IfEnd SubPrivate Sub Command2_Click()For I = 1 To TreeView1.Nodes.CountTreeView1.Nodes(I).Expanded = True '展开所有节点Next IEnd SubPrivate Sub Command3_Click()For I = 1 To TreeView1.Nodes.CountTreeView1.Nodes(I).Expanded = False '收起所有节点Next IEnd SubPrivate Sub Command4_Click()TreeView1.Sorted = True '排列顺序End SubPrivate Sub Command5_Click()If TreeView1.SelectedItem.Index <> 1 ThenTreeView1.Nodes.Remove TreeView1.SelectedItem.Index '删除选定的节点End IfEnd SubPrivate Sub Command6_Click()End '退出程序End SubPrivate Sub Form_Load()TreeView1.LineStyle =TvwTreeLines '在兄弟节点和父节点之间显示线TreeView1.ImageList = ImageList1 '链接图像列TreeView1.Style = tvwTreelinesPlusMinusPictureText'树状外观包含全部元素Set nodx = TreeView1.Nodes.Add(, , "蒲子明", "蒲子明", 1)'建立名称为"蒲子明"的父节点,选择索引为1的图像Set nodx = TreeView1.Nodes.Add("蒲子明", tvwChild, "child01", "收件箱", 3) '在"蒲子明"父节点下建立"收件箱"子节点,选择索引为3的图像Set nodx = TreeView1.Nodes.Add("蒲子明", tvwChild, "child02", "发件箱", 3) '在"蒲子明"父节点下建立"发件箱"子节点,选择索引为3的图像CunZai = FalseEnd SubPrivate Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)Node.ExpandedImage = 2 '节点被展开时,选择索引为2的图像End SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)If TreeView1.SelectedItem.Children = 0 Then '检查是否有子节点,0为无For I = 1 To TreeView1.Nodes.CountIf TreeView1.Nodes(I).Selected ThenMsgBox "您选择的是:“" & TreeView1.Nodes(I).FullPath & "”子节点!"'系统提示End IfNext IEnd IfEnd Sub程序运行界面如下:。

vba treeview用法

vba treeview用法

VBA Treeview:发挥它的功能和价值近年来,VBA(Visual Basic for Applications)作为一种方便、强大的编程语言,越来越受到人们的重视。

在VBA中,Treeview控件是一个非常实用的工具,它可以帮助用户更好地组织和显示数据,提高工作效率。

在本文中,我将以VBA Treeview为主题,探讨其用法、功能和价值。

1. VBA Treeview简介VBA Treeview控件是一种树形结构的控件,通常用于在Windows窗体中显示层次化的数据,比如文件目录、组织结构、分类列表等。

它具有展开和折叠节点的功能,能够清晰地展示数据之间的层次关系,使得用户可以更直观地进行数据查看和操作。

2. VBA Treeview的基本用法在VBA中使用Treeview控件,需要先在工具箱中引入Microsoft Windows Common Controls 6.0库,然后将Treeview控件添加到用户窗体中。

就可以通过VBA代码来动态添加节点、设置节点属性和响应用户操作等。

可以使用Add方法添加根节点和子节点,使用Text、Key、Tag属性设置节点文本、关键字和标签,使用NodeClick事件响应节点被点击等。

3. VBA Treeview的高级功能除了基本的节点操作外,VBA Treeview还支持许多高级的功能,比如节点的拖拽和放置、自定义节点样式、节点的勾选和取消勾选等。

这些功能使得VBA Treeview更加灵活和强大,能够满足各种复杂的数据展示和交互需求。

4. VBA Treeview的应用场景VBA Treeview控件广泛应用于各种领域,比如金融行业的组织机构显示、教育行业的课程结构展示、软件开发中的功能模块导航等。

它可以帮助用户清晰地理解和处理复杂的数据,提高工作效率和用户体验。

5. 个人观点和总结在我看来,VBA Treeview是一个非常有用的工具,它能够帮助用户更好地组织和展示数据,提高工作效率和信息理解能力。

vb.net入门:TreeView控件的使用

vb.net入门:TreeView控件的使用

入门:TreeView控件的使用展开全文一、TreeView 控件的一些常用属性:1、CheckBoxes 属性:指示是否在树视图控件中的树节点旁显示复选框。

2、FullRowSelect 属性:当FullRowSelect 为true 时,选择突出显示将跨越树视图的整个宽度,即整个显示区域的宽度而不仅仅是树节点标签的宽度。

如果ShowLines 设置为true,则将忽略FullRowSelect 属性。

3、HideSelection 属性:指示选定的树节点是否即使在树视图已失去焦点时仍会保持突出显示。

4、HotTracking 属性:如果HotTracking 属性设置为true,那么当鼠标指针移过每个树节点标签时,树节点标签都将具有超级链接的外观。

Underline 字体样式将应用于 Font 而 ForeColor 将设置为蓝色,从而使标签显示为链接。

注意:如果 CheckBoxes 属性设置为 true,HotTracking 属性将失效。

5、Indent 属性:设置每个子树节点级别的缩进距离(以像素为单位)。

6、ItemHeight 属性:设置树视图控件中每个树节点的高度。

7、Nodes 属性:获取分配给树视图控件的树节点集合。

这个属性是TreeView 控件最重要的属性之一,我们下文将会对它进行更加的详细的说明。

8、PathSeparator 属性:树节点路径(TreeNode.FullPath属性)所使用的分隔符串,默认为反斜杠字符(\),树节点路径包括一组由PathSeparator 分隔符串分隔的树节点标签。

标签的范围为根树节点到所需的树节点。

如下代码我们可以获得当前选中的节点的路径:MessageBox.Show(TreeView1.SelectedNode.FullPath)9、SelectedNode 属性:获取或设置当前在树视图控件中选定的树节点,如果没有选定任何节点,则SelectedNode 属性则为Nothing。

treeview控件用法

treeview控件用法

treeview控件用法TreeView控件是一种类似于目录树的控件,用于显示层次结构的数据。

它通常用来显示文件和文件夹的层次关系,也可以用来显示任何具有层次结构的数据。

使用TreeView控件的一般步骤如下:1. 在窗体中放置一个TreeView控件。

2. 使用Nodes属性添加根节点和子节点。

3. 为每个节点设置Text属性,用来显示节点的文本。

4. 可以设置节点的ImageIndex属性和SelectedImageIndex属性,来显示节点的图标。

5. 使用父节点的Nodes属性来添加子节点,形成层次结构。

6. 可以为节点添加事件处理程序,以便响应节点的单击、双击等操作。

以下是一个简单的例子,演示如何使用TreeView控件:```c#// 创建根节点TreeNode rootNode = new TreeNode("根节点");// 创建子节点TreeNode childNode1 = new TreeNode("子节点1");TreeNode childNode2 = new TreeNode("子节点2");TreeNode childNode3 = new TreeNode("子节点3");// 将子节点添加到根节点rootNode.Nodes.Add(childNode1);rootNode.Nodes.Add(childNode2);rootNode.Nodes.Add(childNode3);// 将根节点添加到TreeView控件treeView1.Nodes.Add(rootNode);```这样就创建了一个简单的TreeView控件,其中包含一个根节点和三个子节点。

vb.net treeview的用法

vb.net treeview的用法

TreeView的用法1. 简介中的TreeView是一种常见的控件,用于显示层级结构数据,例如文件夹和文件的结构、组织结构等。

它可以帮助用户更清晰地理解数据之间的关系,并提供交互式的展开和折叠功能。

2. 基本用法在中使用TreeView控件非常简单。

我们需要在窗体中添加一个TreeView控件,然后可以通过编程的方式添加节点和子节点。

每个节点都可以包含文本、图标和其他自定义内容。

3. 节点的操作通过TreeView控件,我们可以对节点进行多种操作,包括添加、删除、展开和折叠等。

这样用户可以根据需要动态地构建和修改树形结构,使得数据的呈现更加灵活和可控。

4. 事件处理TreeView控件提供了丰富的事件,允许我们在节点被选择、展开、折叠等操作时进行相应的处理。

通过事件处理,我们可以实现一些交互逻辑,例如在节点展开时加载子节点的数据。

5. 数据绑定除了手动添加节点,TreeView控件还支持数据绑定的方式。

这样我们可以通过绑定数据源的方式,自动构建树形结构,减少了大量的编码工作。

6. 深入理解了解了TreeView控件的基本用法之后,我们可以深入探讨一些高级的用法,例如节点的拖拽、自定义节点样式、节点的数据绑定和使用等。

总结:通过本文的介绍,我们对中TreeView控件的基本用法有了初步的了解。

TreeView控件可以帮助我们清晰地展现层级结构数据,并提供丰富的操作和事件处理功能,使得数据的展示和交互更加灵活和可控。

希望读者可以通过本文的介绍,更加深入地理解和应用TreeView控件。

个人观点:在实际开发中,TreeView控件是一种非常常用且强大的控件,可以帮助我们解决很多展示层级结构数据的问题。

通过合理的设计和使用,TreeView控件可以极大地提高用户体验和数据展示的效果。

我个人认为,熟练掌握TreeView控件的用法对于开发者来说是非常有必要的。

以上就是我对 TreeView的用法的介绍,希望对你有所帮助。

treeview控件用法(一)

treeview控件用法(一)

treeview控件用法(一)TreeView控件用法详解1. 概述TreeView控件是一种常用的用户界面控件,常用于显示层次结构的数据。

它通常用于文件资源管理器、目录结构显示等场景中。

下面详细介绍TreeView控件的一些常见用法和功能。

2. 树状结构显示•树状结构:TreeView控件以树状结构的方式来显示数据,每个节点可以有多个子节点,形成层次结构。

•节点展开和折叠:用户可以通过点击节点前的加号(+)或减号(-)图标,展开或折叠节点的子节点。

•树节点图标:每个树节点都可以设置一个图标显示在节点前面,用于表示不同类型的节点。

3. 构建树•添加根节点:通过调用TreeView控件的()方法,可以在Treeview的根节点下添加子节点。

•添加子节点:通过设置节点的Nodes属性,添加子节点到指定的父节点。

4. 节点操作•插入节点:使用()方法可以在指定位置上插入一个新节点。

•删除节点:使用()方法可以删除指定节点,同时会删除节点的所有子节点。

•修改节点:通过修改节点的Text属性,可以修改节点的文本内容。

5. 节点选择和展示•选择节点:通过设置TreeView控件的SelectedNode属性,可以选中指定的节点。

•展示节点:可以通过设置节点的EnsureVisible属性,使指定节点可见(自动滚动到可见状态)。

6. 节点事件•节点点击事件:可以通过绑定TreeView控件的NodeMouseClick事件,实现对节点的点击响应。

•节点展开折叠事件:通过绑定TreeView控件的BeforeExpand 和BeforeCollapse事件,实现对节点展开和折叠的响应。

7. 其他功能•勾选框:可以通过设置节点的CheckBoxes属性为true,启用节点的勾选框功能。

•拖拽操作:可以通过设置TreeView控件的AllowDrop属性为true,实现节点的拖拽和放置操作。

8. 总结TreeView控件是一种非常实用的界面控件,它提供了树状结构的显示方式,并提供了丰富的操作和事件,能够满足复杂的层次结构数据展示需求。

vb.net treeview tooltiptext 用法案例

vb.net treeview tooltiptext 用法案例

treeview tooltiptext 用法案例在中,TreeView控件没有直接的TooltipText属性,但是您可以通过结合ToolTip 控件和TreeView控件的Tag属性来实现类似的效果。

下面是一个简单的例子:首先,在您的窗体上放置一个TreeView控件和一个ToolTip控件。

vbnet复制代码Dim treeView As New TreeView()Dim toolTip As New ToolTip()' 添加一些节点到TreeView中treeView.Nodes.Add("Node 1")treeView.Nodes(0).Nodes.Add("Child Node 1")treeView.Nodes(0).Nodes.Add("Child Node 2")treeView.Nodes.Add("Node 2")然后,您可以遍历TreeView的节点并为每个节点设置ToolTip文本。

这个文本将被显示当用户将鼠标悬停在节点上时。

vbnet复制代码For Each node As TreeNode In treeView.Nodes' 设置ToolTip文本toolTip.SetToolTip(node, "Tooltip text for " & node.Text)' 如果节点有子节点,递归设置子节点的ToolTip文本If node.Nodes.Count > 0ThenFor Each childNode As TreeNode In node.NodestoolTip.SetToolTip(childNode, "Tooltip text for " & childNode.Text)NextEnd IfNext现在,当您将鼠标悬停在TreeView的节点上时,应该能看到相应的ToolTip文本。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
hottracking属性:当鼠标指针经过某个条目时,这些条目是否突出显示,类似网页的超链接效果
labeledit属性:决定用户是否能编辑控件中列出的项目,此项如果不想被改变,可将属性值设置为1
linestyle属性:设置列出的每项之间的行样式,即,如果为1,则当前项下还有子项的时候,它的前面会显示“+”号,如果值为2,则不显示“+”
singlesel属性:设置在树中选择新的条目时,是否展开此条目并收拢前一个条目,即,设置为True时,并且当前选中的条目有子项的时候,会把子项展开,并将原来你选中的条目收拢,这一点很实用。
style属性:设置Treeview控件的每个列表的组成方式,比如“图片”+“文本”方式,等等,这样你就可以把Treeview弄得更好看一些。
三、触发事件Biblioteka 节点条目的单击click事件,将触发NodeClick事件
可在此添加你想要执行的代码
就先写道这里了,如果有不完善的,希望大家补充,呵呵
VB Treeview控件的详细使用
VB Treeview控件详细使用方法
1、属性
这里只给大家介绍Treeview控件的几个常用基本属性
appearance属性:设置空间是否以3D效果显示
详细的外观设置可以转到此控件的“自定义”页面进行设置
checkboxes属性:在树的每一项的旁边,是否显示一个复选框,类似checkbox控件的作用
2、用法介绍:
一、Treeview控件添加条目和子条目通常使用ADD方法,其语法如下:
Nodes.Add(relative,[relationship][,key][,text][,image][,selectedimage])
其中:
relationship参数是通过关系节点参数与新节点连接的另一个节点;参数可能是以下情况:
创建父节点条目
TreeView.Nodes.Add , , "Father", "Father"
创建此节点的子节点条目
TreeView.Nodes.Add "Father", tvwChild, , "Child"
注意创建子节点的时候,relative参数为父节点的文本"Father"
二、添加图像
为节点插入图象可参考语句:
1-tvwlast该节点置于所有其他的在relative中被命名的同一级别的节点的后面
2-tvwNext该节点置于在relative中被命名节点的后面
3-tvwPrevius该节点置于在relative中被命名的节点的前面
4-tvwChild该节点成为在relative中被命名的节点的的子节点
详细语句可参考下列程序代码:
Treeview.node(index).image="图片名"
可以参考
Nodes.Add(relative,[relationship][,key][,text][,image][,selectedimage])
中的image和selectedimage项
注:一般从imagelist控件中指定图象
相关文档
最新文档