Foxtable(狐表)用户栏目专家坐堂 → 目录树能否自动生成与手工生成相结合


  共有13430人关注过本帖树形打印复制链接

主题:目录树能否自动生成与手工生成相结合

帅哥哟,离线,有人找我吗?
mr725
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/3/13 17:16:00 [显示全部帖子]

 

示例

在窗口中插入一个目录树、一个按钮,将按钮的Click事件代码设为:


Dim
tr As WinForm.TreeView
Dim
nd As WinForm.TreeNode
tr = Forms(
"窗口1").Controls("TreeView1")
nd = Tr.Nodes.Add(
"Root1","根节点一")
nd.Nodes.Add(
"Sub1","子节点一")
nd.Nodes.Add(
"Sub2","子节点二")
nd = Tr.Nodes.Add(
"Root2","根节点二")
nd.Nodes.Add(
"Sub3","子节点三")
nd.Nodes.Add(
"Sub4","子节点四")

运行时单击按钮,会生成目录树:


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/3/13 17:51:00 [显示全部帖子]

要自己测试了,我也没有做过类似的.  如果节点层次没有变动, 原代码不需要修改啊~  
[此贴子已经被作者于2010-3-13 17:51:31编辑过]

 回到顶部