以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树的两个小技巧  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50334)
--  作者：逛逛
--  发布时间：2014/5/5 8:20:00
--  目录树的两个小技巧

 

1）  目录树简单排序

         e.Form.Controls("TreeView1").BaseControl.Sorted = True   \'真为排序，假为不排序

 

 

 

 

 

2）  节点定位（这个是昨天回复的例子，发觉经常会有人提，就放在这里便于查找）

 

Dim tv As System.Windows.Forms.TreeView  = e.Form.Controls("TreeView1").BaseControl

Dim nd() As System.Windows.Forms.TreeNode = tv.Nodes.Find("cc",True)    \'cc 用节点名替代，true便是包含子目录，返回的是符合名称的所有子节点

If nd.Length > 0 Then

    tv.SelectedNode = nd(0)   \'定位第一个节点（正常的节点名应该是不会重复的）

End If
--  作者：Bin
--  发布时间：2014/5/5 8:24:00
--  
赞一个,谢谢分享
--  作者：lsy
--  发布时间：2014/5/5 8:24:00
--  
点个赞，道声妙。
--  作者：狐狸爸爸
--  发布时间：2014/5/5 8:32:00
--  
学习
--  作者：ndxfke
--  发布时间：2014/5/5 13:46:00
--  

赞

 

 
--  作者：don
--  发布时间：2014/5/5 13:49:00
--  
逛哥 V5！
--  作者：花开的声音
--  发布时间：2014/5/5 15:37:00
--  
回复收藏。
--  作者：程兴刚
--  发布时间：2014/5/6 2:34:00
--  
顶一下！
--  作者：hanxuntx
--  发布时间：2014/5/6 10:12:00
--  
学习了
--  作者：黄训良
--  发布时间：2014/5/6 11:28:00
--  
顶顶更健康