如何在treeview刷新后保持以前的状态

软件下载

窗体中的treeview连接数据库，在重新加载后如何让它保持加载前的状态

网上找了很久，多是C#和net之类的语言，没有VB的，综合各查询结果，有个大致思路：

遍历node，如果expaned属性是true.就把此node的某个属性做个标识，然后clear各nodes后，加载完再遍历一次，如果符合此“某个属性”标识值就让其expaned为true

不过查了一遍treeview的属性，没有合适的属性能用，其中tag属性在我的treeview的click中已经用掉，不能设置，hwnd等又不匹配，还有什么属性能用而不影响加载？

tmtony

在表中存储这个属性,或单独一个表保存它的展开状态.
另可将tag拆开给多个属性来使用

asklove

老大，可否给个例子，让我们学学？

wanshan

Dim nodeIndexMemory As Integer

Private Sub Treeview_NodeClick(ByVal Node As Object)
     
    Node.Expanded = True
    nodeIndexMemory = Node.Index
   
End Sub


Private Function shuaxin()  '刷新
        Me.TreeView.Nodes(nodeIndexMemory).Selected = True
End Function

aslxt

做过刷新后重新选中刷新前已经选中的node，没有关注做expaned的属性，想一下道理是一样的，不过单选的node用一个变量存储，而expaned可能有多个，需要用动态数组存储：

软件下载

wanshan 发表于 2010-12-2 16:47
Dim nodeIndexMemory As Integer

Private Sub Treeview_NodeClick(ByVal Node As Object)

谢谢,这个方法只能记住一个,我需要的是记住所有nodes的状态,现在用了一个笨办法,就是做了2个函数
第一个是使用数组记住当前处于展开状态的nodes的fullpath
第二个是遍历节点,如果节点的fullpath和数组中的相同,即将此节点展开
然后在刷新前调用第一个函数,刷新后调用第二个函数,这样无法你展开多少都可以记住.
现在又遇到一个问题,数组的下标不能使用变量,因为treeview的nodes的count是变化的,我用下面方法不行
dim n as integer
n=me.treeview.nodes.count
dim N_nub(n) as string
...
在运行时总是在定义数组这段出错,我只好dim N_nub(200) as string

wanshan

szyuer

谢谢,下了一例子...

kunian

我采用的是数据表中记录初始化状态