主题：如何让目录树原来可见节点位置不变

此主题相关图片如下：目录树.png

如果单纯是 EnsureVisible，你可以用一个变量记录当前的。

 

如果是全部的展开信息都需要还原，刷新之前，保存好各个节点的展开信息，可以用字典暂时存放。刷新后，循环每一个节点，根据字典，重新设置一次。

就是不知道怎么获取当前最上面的那个节点, 比如1楼中采购管理就是最上面的可见节点,代码怎么判断某个节点当前是处于最上面的位置?

msgbox(CType(e.Form.Controls("TreeView1").BaseControl,Windows.Forms.TreeView).TopNode.FullPath)

参考

 

Dim trv = e.Form.Controls("TreeView1").basecontrol
msgbox(trv.TopNode.name)

不是可以直接赋值？

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim btrv = trv.basecontrol
btrv.TopNode = btrv.Nodes("基础数据")

为什么7楼的代码在窗口的afterload最后面时不起作用,在窗口中设计一个按钮,将代码写在click中,在窗口打开后点击这个按钮就可以

 

需要窗口显示出来代码才生效。

 

代码要写到timertick事件，延时一两秒再设置即可。