admin 管理员组文章数量: 1184232
2024年4月17日发(作者：创新驱动发展战略三步走目标)
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 Explicit
Dim I As Integer
Dim J As Integer
Dim nodx As Node
Dim CunZai As Boolean '定义变量
Private Sub Command1_Click()
If Txt(0).Text <> "" And Txt(1).Text <> "" Then '不允许建立零字节的父节点和子节点
CunZai = False
J =
For I = 1 To '检查新输入的父节点名称是否存在
If en > 0 Then
If Txt(0).Text = (I).Text Then CunZai = True
End If
Next I
If CunZai = True Then '若存在, 则在父节点下建立子节点
Set nodx = (Txt(0).Text, tvwChild, "child" & J,
Txt(1).Text, 3)
Else ,若不存在,则建立父节点和子节点
Set nodx = (, , Txt(0).Text, Txt(0).Text, 1)
Set nodx = (Txt(0).Text, tvwChild, "child" & J,_
Txt(1).Text, 3)
End If
h
ElseIf Txt(0).Text = "" Then MsgBox "请输入父节点名称!", vbInformation, "
'系统提示
ElseIf Txt(1).Text = "" Then MsgBox "请输入子节点名称!", vbInformation, "
End If
End Sub
Private Sub Command2_Click()
For I = 1 To
(I).Expanded = True '展开所有节点
Next I
End Sub
Private Sub Command3_Click()
For I = 1 To
(I).Expanded = False '收起所有节点
Next I
End Sub
Private Sub Command4_Click()
= True '排列顺序
End Sub
Private Sub Command5_Click()
If <> 1 Then
'删除选定的节点
End If
End Sub
Private Sub Command6_Click()
End '退出程序
End Sub
Private Sub Form_Load()
yle =TvwTreeLines '在兄弟节点和父节点之间显示线
ist = ImageList1 '链接图像列
警告！"
警告！"
= tvwTreelinesPlusMinusPictureText
'树状外观包含全部元素
Set nodx = (, , "蒲子明", "蒲子明", 1)
'建立名称为"蒲子明"的父节点,选择索引为1的图像
Set nodx = ("蒲子明", tvwChild, "child01", "收件箱", 3)
'在"蒲子明"父节点下建立"收件箱"子节点,选择索引为3的图像
Set nodx = ("蒲子明", tvwChild, "child02", "发件箱", 3)
'在"蒲子明"父节点下建立"发件箱"子节点,选择索引为3的图像
CunZai = False
End Sub
Private Sub TreeView1_Expand(ByVal Node As )
edImage = 2 '节点被展开时,选择索引为2的图像
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As )
If en = 0 Then '检查是否有子节点,0为无
For I = 1 To
If (I).Selected Then
MsgBox "您选择的是：“" & (I).FullPath & "”子节点！"
'系统提示
End If
Next I
End If
End Sub
程序运行界面如下:
版权声明：本文标题：VB中Treeview 控件的使用方法 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1713284097a627523.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论