Forums Últimos mensajes - Powered by IBM
 

Mscomctllib.treecrtl.2

14/04/2010 - 18:02 por Miguel Angel Gauna-Santa Cruz-Argentina | Informe spam
Hola Amigos, estoy usando este Treeview, funciona bien, espartano eso
si, quisiera mejorar su presentacion, por ejemplo agregando algun
color en algun nodo, algun otro color de fondo o alguna imagen por
ej. una estrella para los item mas usados, no se si se podra hacer con
este control me pàrece que es mas para VB. Lo que es seguro es que
estoy errando en la sentencia de modificación

Thisform.MenuTreeView.nodes.item("tesoreria").forecolor = RGB(0,0,255)
*Marca error Elemento not found"

Thisform.MenuTreeView.nodes.item(2).forecolor = RGB(0,0,255)
*Marca error index out of bounds

Gracias y Saludos
 

Leer las respuestas

#1 Luis Martinez
26/04/2010 - 18:11 | Informe spam
Claramente este nodo no existe en la colección Nodes

Usa la propiedad Count para verifica que el item existea

If Thisform.MenuTreeView.nodes.Count>=2
Thisform.MenuTreeView.nodes.item(2).forecolor = RGB(0,0,255)
Endif

Pero la mejor forma de tener acceso directo a cada nodo es mediante su Key,
el cual debe ser un valor unico dentro de la coleccion Nodes. Ejemplo

*->Agregar un nuevo nodo padre con el Key = _K01
loNodo = Thisform.MenuTreeView.nodes.Add(,0,"_K01","Nodo # 01")

*->Texto en Negritas
loNodo.Bold = .T.

*->Color del Texto
loNode.ForeColor = Rgb(255,0,0)

*->Imagen
loNode.Image = 3

Nota. Para mostar una imagen tienes que agregar al Form el control
Mscomctllib.ImageListCtrl.2 y asociarlo a la propieda ImageList del
Treeview, ej.: Thisform.MenuTreeView.ImageList = ObjImageListCtrl y al
control ObjImageListCtrl debes agregar la colección de imagenes que deseas
mostrar.


Saludos,

Luis Martínez
Caracas-Venezuela

"Miguel Angel Gauna-Santa Cruz-Argentina" escribió
en el mensaje de noticias
news:
Hola Amigos, estoy usando este Treeview, funciona bien, espartano eso
si, quisiera mejorar su presentacion, por ejemplo agregando algun
color en algun nodo, algun otro color de fondo o alguna imagen por
ej. una estrella para los item mas usados, no se si se podra hacer con
este control me pàrece que es mas para VB. Lo que es seguro es que
estoy errando en la sentencia de modificación

Thisform.MenuTreeView.nodes.item("tesoreria").forecolor = RGB(0,0,255)
*Marca error Elemento not found"

Thisform.MenuTreeView.nodes.item(2).forecolor = RGB(0,0,255)
*Marca error index out of bounds

Gracias y Saludos

Preguntas similares