[Resolvido] controle TreeView

[xanburzum 169]

Um controle TreeView é extremamente simples fazer em ASP. Este código mostra como criar uma classe simples treeview usando ASP e estilo em cascata. Excelente para programadores que desejam aprender como criar simples controles ASP. Vamos começar adicionando o TreeNodes manualmente

Para criar um treeview devemos incluir o seu arquivo de classe treeview (clsTreeView.asp) código mostrado abaixo:

 

<!--#include file="clsTreeView.asp"-->
           <%
           'declarar seu objeto treeview
           Dim objTV            

           'criar uma instância de seu treeview
           Set objTV = New TreeView            

           'adicionar 2 nós para o seu treeview
           objTV.AddNode("Node1")            
           objTV.AddNode("Node2")            

           'adicionar 2 folhas ao seu primeiro nó             
           objTV.Nodes(0).Add(objTV.CreateNode("Node 1:1","page1.htm","Tool                  tip text"))            
           objTV.Nodes(0).Add(objTV.CreateNode("Node 1:2","page2.htm","Tool                  tip text"))            

           'adicionar um nó childNode para o seu segundo nó
           objTV.Nodes(1).Add(objTV.CreateSimpleNode("Node 2:1"))            

           'adicionar folhas para o seu primeiro filho segundo nó
           With objTV.Nodes(1).ChildNodes(0)            
     .Add(objTV.CreateNode("Msn Brasil ","http://br.msn.com","Msn Brasil(2:1:1)"))
     .Add(objTV.CreateNode("Burzum ","http://Burzum.com","Burzum(2:1:2)"))          

               'adicionar uma imagem diferente para o link Msn Brasil
               .ChildNodes(0).ImageUrl="http://www.msn.com/favicon.ico"            
           End With            

           'mostrar o seu treeview
           objTV.Display            

           'limpa a memória
           Set objTV = Nothing

           %>

 

Usando Múltiplas TreeViews

Se você quiser usar mais de uma treeview na mesma página, adicione um valor de identificação para cada árvore como segue:

 

'declare objects
           Dim objTV1, objTV2

           'create instances of your treeviews
           Set objTV1 = New TreeView
           Set objTV2 = New TreeView

           'set treeview ID's
           objTV1.ID = "TV1"
           objTV2.ID = "TV2"

 

Carregamento de um banco de dados

Se você quiser carregar o treeview de uma tabela de banco de dados, verifique se você tem uma tabela em seu banco de dados com a seguinte estrutura:

 

 

Onde o campo ParentID é o primeiro ancestral do nó de árvore.O ParentID de zero indica um nó raiz na árvore. Os campos URL e ToolTip pode ser deixado vazio para nós não-folha. Você pode então carregar o treeview, chamando o método LoadFromDB da seguinte forma:

 

TreeView.LoadFromDB (Connection String, Nome da tabela Menu)

 

O código de exemplo abaixo mostra como carregar o treeview de uma tabela de banco de dados chamado de menu:

 

<!--#include file="clsTreeView.asp"-->
           <%

           'declare objetos
           Dim objTV, strConn

           'definir a sua seqüência de conexão
                        strConn = "DRIVER={Microsoft Access Driver (*.mdb)};" _
               & "DBQ=" & Server.MapPath("site.mdb")

           'criar instâncias de seu treeview
           Set objTV = New TreeView

           'carregar a treeview da tabela de banco 'Menu'
           Call objTV.LoadFromDB(strConn,"Menu")

           'exibie o treeview             
           objTV.Display            

           'limpar a memória           
           Set objTV = Nothing

           %>

 

Você sempre pode modificar o banco de dados e da Classe TreeView (arquivo clsTreeView.asp) para atender às suas necessidades como a adição de um campo ImageURL ou mesmo otimizar o procedimento LoadFromDB.

 

 

Exibindo um diretório windows / pasta

 

Se você quiser exibir o conteúdo de uma pasta como o Windows Explorer, tudo que você tem a fazer é chamar o DisplayFolderContents com o caminho da pasta como mostrado abaixo:

 

<!--#include file="clsTreeView.asp"-->
<%

'declarar os objetos
Dim objTV

'criar uma instância de seu treeview
Set objTV = New TreeView
Call objTV.DisplayFolderContents("C:\InetPub\wwwroot")

'limpar memória
Set objTV = Nothing


%>