TREEVIEW NO ASP

USUARIO.EXCLUIDOS 24/04/2007 17:27:50
#213585
Pessoal,

Precisava de uma exemplo, de como montar um treeview no asp...
pois nao acho nenhum exemplo referente a essaferramenta..
Alguem pode me passar porfavor???

Att,


Marcelo Bressan
USUARIO.EXCLUIDOS 24/04/2007 18:40:28
#213588
Marcelo,

Acho que em ASP não é possivel. Tenta procurar na NET em Javascript.
USUARIO.EXCLUIDOS 24/04/2007 18:56:48
#213589
Memluz

consegui um codigo na net que simula uma treeview...

segue.

<%
'Pegamos os menus abertos.
MenuAbertoFinal = Request.QueryString("MenuAberto")

'Nomes dos Menus
Dim Menu(3)
Menu(0) = "<b>Jogos</b>"
Menu(1) = "<b>MP3</b>"
Menu(2) = "<b>Vídeos</b>"

'Menus a serem criados, Numere o valor das variavis,
'de 0 ao total de menus a serem criados.
Dim ArrMenuCriado(3,3)
ArrMenuCriado(0,0) = "0"
ArrMenuCriado(1,0) = "1"
ArrMenuCriado(2,0) = "2"

'Status Inicial do link
Dim StatusLink(3)
StatusLink(0) = "+"
StatusLink(1) = "+"
StatusLink(2) = "+"

'Link para cada menu.
Dim Link(3)
Link(0) = ArrMenuCriado(0,0) &"|"& MenuAbertoFinal
Link(1) = ArrMenuCriado(1,0) &"|"& MenuAbertoFinal
Link(2) = ArrMenuCriado(2,0) &"|"& MenuAbertoFinal


SplitMenuFinal = Split(MenuAbertoFinal,"|")
'Montamos os SubMenus.
For i = 0 TO UBOUND(SplitMenuFinal)

Select Case SplitMenuFinal(i)
Case "0"
'Criamos aqui o SubMenu do Menu Criado
ArrMenuCriado(0,1) = ArrMenuCriado(0,1)&"[ <i>Sim City</i> ]"
ArrMenuCriado(0,1) = ArrMenuCriado(0,1)&"[ <i>Age Of Empires</i> ]"
ArrMenuCriado(0,1) = ArrMenuCriado(0,1)&"[ <i>Diablo</i> ]"
ArrMenuCriado(0,1) = ArrMenuCriado(0,1)&"[ <i>Paciência</i> ]"
'Status do link após estar o menu aberto
StatusLink(0) = "-"
'Montamos o link para o menu que está aberto
Link(0) = ArrMenuCriado(0,0) &"|"& MenuAbertoFinal
Link(0) = Replace(Link(0),ArrMenuCriado(0,0)&"|","")
Case "1"
'Criamos aqui o SubMenu do Menu Criado
ArrMenuCriado(0,2) = ArrMenuCriado(0,2)&"[ <i>Legião Urbana</i> ]"
ArrMenuCriado(0,2) = ArrMenuCriado(0,2)&"[ <i>Raul Seixas</i> ]"
ArrMenuCriado(0,2) = ArrMenuCriado(0,2)&"[ <i>Maria Rita</i> ]"
'Status do link após estar o menu aberto
StatusLink(1) = "-"
'Montamos o link para o menu que está aberto
Link(1) = ArrMenuCriado(1,0) &"|"& MenuAbertoFinal
Link(1) = Replace(Link(1),ArrMenuCriado(1,0)&"|","")
Case "2"
'Criamos aqui o SubMenu do Menu Criado
ArrMenuCriado(0,3) = ArrMenuCriado(0,3)&"[ <i>Terra dos Mortos</i> ]"
ArrMenuCriado(0,3) = ArrMenuCriado(0,3)&"[ <i>Pânico</i> ]"
ArrMenuCriado(0,3) = ArrMenuCriado(0,3)&"[ <i>Visões</i> ]"
ArrMenuCriado(0,3) = ArrMenuCriado(0,3)&"[ <i>Amor Além da Vida</i> ]"
ArrMenuCriado(0,3) = ArrMenuCriado(0,3)&"[ <i>Guerra dos Mundos</i> ]"
'Status do link após estar o menu aberto
StatusLink(2) = "-"
'Montamos o link para o menu que está aberto
Link(2) = ArrMenuCriado(2,0) &"|"& MenuAbertoFinal
Link(2) = Replace(Link(2),ArrMenuCriado(2,0)&"|","")
End Select
Next

'Menus
Response.Write "<a href='?MenuAberto="&Link(0)& "'>"&StatusLink(0)&"</a> "&Menu(0)&" "
Response.Write ArrMenuCriado(0,1)
Response.Write "<a href='?MenuAberto="&Link(1)& "'>"&StatusLink(1)&"</a> "&Menu(1)&" "
Response.Write ArrMenuCriado(0,2)
Response.Write "<a href='?MenuAberto="&Link(2)& "'>"&StatusLink(2)&"</a> "&Menu(2)&" "
Response.Write ArrMenuCriado(0,3)
%>

Tópico encerrado , respostas não são mais permitidas
Voltar