Peraca Pérez

Protected Sub TreeView1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView1.Load 'Verifico si existe en Sesi¢n el estado del treeview 'Si existe deshabilito el ExpandDepth If Session("TreeViewState") IsNot Nothing Then Me.TreeView1.ExpandDepth = 0 End If 'Cuando hago el bound entre mi fuente de datos y el treeview 'verifico si existe o no el estado del treeview guardado en sesi¢n If Session("TreeViewState") Is Nothing Then ' Si no existe, grabo el estado actual de expandidos/contraidos del TreeViews Dim list As ArrayList = New ArrayList SaveTreeViewState(TreeView1.Nodes, list) Session("TeeViewState") = list Else 'Si existe, restauro el estado guardado de expandidos/contraidos del TreeViews Dim list As ArrayList = CType(Session("TreeViewState"), ArrayList) RestoreTreeViewState(TreeView1.Nodes, list) End If End Sub ...