CLASSE QUE SIMULA O TREEVIEW

USUARIO.EXCLUIDOS 02/04/2004 10:03:02
#18320 Resposta escolhida

O que tu queria que a classe fizesse

USUARIO.EXCLUIDOS 02/04/2004 10:16:11
#18327

Entendi Gerassi

Voce quer criar uma estrutura em arvore via código

Tente isso

Class Node
Public Nome as string
Public Texto as string
Public Tag as string
Dim Tcol as new collection
Public Function AdicionarNo(Nome as string,Texto as string,Tag as string) as node
dim o as new node
o.nome = nome
o.texto = texto
o.tag = tag
Tcol.add o
set AdicionarNo = o
end function
Sub RemoverNo(Nome as string)
Tcol.remove nome
end sub
Sub PegarNo(nome as string) as node
set PegarNo = TCol(nome)
end sub
end class