Poner texto en diferentes colores en un Listbox

[mendietar]

Hol@ a tod@s:

Bueno la idea es que algunos de los registros que aparezcan en un listbox se coloreen en un color que yo le diga. Es para destacar unos registros especialmente importantes sobre el resto.

¿¿Alguien sabe cómo se podría hacer??

Gracias!

[Hager]

usa el control OwnerDrawComboList, la verdad no esoy seguro como cargarlo pero este componente es una lista con propiedades especiales

[RootK]

puedes descargar éste componente...

Virtual Listbox Demo

Si quieres la rerencia de la página aqui te la dejo..

http://www.mvps.org/vbvision/Sample_Projects.htm

Salu2

[mendietar]

Pues me pasa una cosa curiosa, efectivamente el control segun te lo descargas funciona pero al intentar crear uno o cuando pulsas sobre él me empieza a dar errores como por ejemplo:

"No se admite Get (propiedad de solo escritura)"

Option Explicit

' our type to keep track of the item text and it's desired colors
Private Type LIST_ITEMS
sText As String
nNormalForeColor As Long
nNormalBackColor As Long
nSelectedForeColor As Long
nSelectedBackColor As Long
End Type

' our array to hold the list items
Private m_asVirtualList() As LIST_ITEMS

Private Sub Form_Load()

Dim i&

' add some stuff to the list
ReDim m_asVirtualList(9) As LIST_ITEMS

With m_asVirtualList(0)
.sText = "Apple"
.nNormalBackColor = vbRed
.nNormalForeColor = vbBlack
.nSelectedBackColor = vbWhite
.nSelectedForeColor = vbBlack
End With
With m_asVirtualList(1)
.sText = "Orange"
.nNormalBackColor = &H80C0FF
.nNormalForeColor = vbBlack
.nSelectedBackColor = vbWhite
.nSelectedForeColor = vbBlack
End With

With UVirtualList1
For i = 0 To UBound(m_asVirtualList)
.AddItem ""
Next
End With

End Sub

Es que no entiendo cómo está añadiendo los items porque el additem del final está vacio ... Bueno me seguiré pegando con ello a ver qué pasa.