Dudas sobre Treeview Control

[Ruben Rueda]

Buenos dias, pues les comento, tengo un control TreeView, nada del otro mundo, que recoge valores de una base de datos, los relleno dinámicamente según el tipo de datos, y se monta correctamente.

Ahora bien, me gustaria que algunas entradas, pudiera personalizarlas, es decir, si entra un determinado producto que es una novedad, o que requiere una atención por parte del usuario me gustaría que ese nodo se insertara en el arbol con formato negrita, o subrayado o bien con otro color, se puede hacer esto de alguna manera sencilla?

También me gustaría saber si se puede hacer el efecto sobre los nodos de un arbol como con los links en html, que al situarse el raton encima de el se subraye y al quitarse del nodo vuelva al estado normal.... lo he hecho con etiquetas en plan cutre con eventos de movimiento del ratón pero en un TreeView parece algo más complejo.

Desde ya, cualquier respuesta, lo agradezco :)

[Alex Martínez]

Post by Ruben Rueda
Buenos dias, pues les comento, tengo un control TreeView, nada del
otro mundo, que recoge valores de una base de datos, los relleno
dinámicamente según el tipo de datos, y se monta correctamente.
Ahora bien, me gustaria que algunas entradas, pudiera
personalizarlas, es decir, si entra un determinado producto que es
una novedad, o que requiere una atención por parte del usuario me
gustaría que ese nodo se insertara en el arbol con formato negrita, o
subrayado o bien con otro color, se puede hacer esto de alguna manera
sencilla?
También me gustaría saber si se puede hacer el efecto sobre los nodos
de un arbol como con los links en html, que al situarse el raton
encima de el se subraye y al quitarse del nodo vuelva al estado
normal.... lo he hecho con etiquetas en plan cutre con eventos de
movimiento del ratón pero en un TreeView parece algo más complejo.
Desde ya, cualquier respuesta, lo agradezco :)

Lee, un poco más abajo, el hilo titulado "Colores en un nodo del control
TreeView", iniciado por Pachi el pasado día 20.

[Ruben Rueda]

Es que hay un prblema.... y es que no habria el grupo desde hace dos
semanas... es decir me ha cogido los mensajes desde el dia 22 :( si puedes
hacer un copiar-pegar con la respuesta te lo agradeceria :P

[Vinchenzo vinç]

"Ruben Rueda" <***@gmail.com> escribi� en el mensaje news:***@TK2MSFTNGP09.phx.gbl...

Hola Ruben,

en el ejemplo del hilo que Àlex te comenta, deberás tener bien en cuenta
la sección 'Prerequites', porque verás que en Viisual Basic 6 no obtendrás
los resultados deseados, desde el punto de vista del ejemplo de Randy Birch.

Pero de todas formas no necesitas usar ninguna técnica especial para las
cosas que dices que necesitas.

...con formato negrita, o subrayado o bien con otro
color, se puede hacer esto de alguna manera sencilla?

Cuando añades un nodo puedes cambiar las propiedades en ese momento:

Dim MiNodo As Node
Set MiNodo = Tv.Nodes.Add(.....)
With MiNodo
.BackColor = vbRed
.ForeColor = vbYellow
.Bold = True
End With

...al situarse el raton encima de
el se subraye y al quitarse del nodo vuelva al estado normal....

Este efecto lo tienes con la propiedad "HotTracking" del control
TreeView.
--
:-) Un saludo
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/43b3q
( i ) Temperancia en el foro:
http://www.mvp-access.com/rubenvigon/foro
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
( ! ) Lee. Decide. Firma la petición a Microsoft:
http://classicvb.org/petition/?lang=es
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

[Ruben Rueda]

No parece que funcione:

Dim MiNodo As Node

'Añadimos el Root
Set MiNodo = tvLista.Nodes.Add(, , "R", "Elija la Opción")

'Los siguientes nodos,dependen del nodo Raiz, que tiene Key = "R"
Set MiNodo = tvLista.Nodes.Add("R", tvwChild, "C1", "Documento 1")

MiNodo.BackColor = vbRed

Da el error de qeu la clave no es única en la colección

[Vinchenzo vinç]

Post by Vinchenzo vinç
Dim MiNodo As Node
'Añadimos el Root
Set MiNodo = tvLista.Nodes.Add(, , "R", "Elija la Opción")
'Los siguientes nodos,dependen del nodo Raiz, que tiene Key = "R"
Set MiNodo = tvLista.Nodes.Add("R", tvwChild, "C1", "Documento 1")
MiNodo.BackColor = vbRed
Da el error de qeu la clave no es única en la colección

Ese error no tiene que ver con la asignación de propiedad, sino con que
estarás intentando añadir un elemento con la clave "C1", cuando ya hay uno
con esa clave.
--
:-) Un saludo
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/43b3q
( i ) Temperancia en el foro:
http://www.mvp-access.com/rubenvigon/foro
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
( ! ) Lee. Decide. Firma la petición a Microsoft:
http://classicvb.org/petition/?lang=es
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

[Lluís Franco]

:-S
Uhm... pues solo con etas dos líneas no debería dar error de clave.
El primer nodo tien clave "R", y el segundo "C1" que depende de "R" como
hijo (tvwChild).
¿Estás seguro que no tienes ningún otro nodo con la misma clave?

Saludos,
--
Lluís Franco i Montanyés
[MS-MVP-MCP Visual Basic]

FIMARGE, S.A.
Principat d'Andorra
***@ODIO_EL_SPAMfimarge.ad
Tel.: [phone]
Fax: [phone]
Mi Perfil MVP en: http://tinyurl.com/4nbnb

This posting is provided "AS IS" with no warranties, and confers no rights.
Este mensaje se proporciona "COMO ESTA" sin garantias y no otorga ningun
derecho

--
(Guía de netiquette del foro)
http://www.uyssoft.com/Netiquette/