以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教目录树  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=168978)
--  作者：hb8888
--  发布时间：2021/5/29 10:25:00
--  请教目录树
大师：见帮助中描述：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("行政区域","省市|县市") \'生成目录树
Dim nd As WinForm.TreeNode = trv.Nodes("湖南省") \'获得名为“湖南省”的节点
Dim idx As Integer = Math.MIn(20, nd.Nodes.Count - 1) \'获得“湖南省”的第20个或最后一个子节点的位置
trv.SelectedNode = nd \'选择"湖南省"节点
nd.Nodes(idx).EnsureVisible \'使得湖南省的第20个或最后一个子节点可见.


请问：如果这样trv.BuildTree("行政区域","省市|县市|乡镇") \'生成目录树


那如何保证某一省在目录中可见，并在目录树上部？
--  作者：有点蓝
--  发布时间：2021/5/29 10:53:00
--  
目录树没有这种固定功能。

只能大概处理

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = trv.Nodes(trv.Nodes.Count - 1)
nd.EnsureVisible
nd = trv.Nodes("湖南省") \'获得名为"湖南省"的节点
nd.EnsureVisible