VB6: ComboBox con "Separador" de texto

[Hugo]

Hola amigos,

Muy buenos días, espero que esten bien...
Necesito la ayuda para crear en VB6 un combo box con "separador" de texto, no seleccionable...
¿Que es esto?

Sería algo como lo siguiente:

-comidas-
 pizza
 pollo
 choripan
-bebidas-
 agua
 cerveza
 gaseosa
 vino
 
Donde "-comidas-" y "-bebidas-" sí se puede ver, pero no es seleccionable... (esto sirve, obviamente, como separador de items)

El asunto que estoy buscando en Internet, pero no encuentro como hacer esto en VB6... aunque sí se puede hacer en VB.NET... pero no me sirve...
También se puede hacer eso mismo en HTML... pero tampoco sirve... ya que esto es VB6...

Alguien sabe cómo hacer eso??

Espero que me puedan ayudar ya que aparte, es interesante para cualquier aplicación...
Es más... seguramente alguien ya lo halla implementado o visto alguna vez...


Desde ya muchas gracias,
Un Saludo

[YAcosta]

Debe haber varias soluciones mejor, pero al vuelo se me ocurre poner en el evento click:

Código: (vb) [Seleccionar]


If Left(Combo1.List(Combo1.ListIndex), 1) = "-" Then
   Combo1.Text = "" 'o lo que te plazca que aparezca
Else
   Label1 = Combo1.Text 'u otra accion
End If


[Bazooka]

Hola, nunca e visto algo como esto pero podrías crearte un OCX a partir de algunos codigos existentes de comboBox.

[Hugo]

Hola YvanB, Miguel...

Gracias por los comentarios... estoy pensando que hacer... aún no tengo solucionado esto, pero estoy viendo... es un poco dificil, al menos para mi...


GRACIAS...

Igual, sigo esperando alguna ayuda más... alguien vio esto antes? Alguien sabe de algun código en internet, que haga esto?

UN SALUDO

[k_arlytos]

Código: (vb) [Seleccionar]

Option Explicit

Private Sub Combo1_Click()
Combo1.ListIndex = SelecionarItem()
End Sub

Private Sub Form_Load()
    Combo1.ListIndex = 0
End Sub

Private Function SelecionarItem() As Integer
    Dim NumeroActual As Integer
    If Left(Combo1.List(Combo1.ListIndex), 1) = "-" Then
        NumeroActual = Combo1.ListIndex - 1
        If NumeroActual = -1 Then NumeroActual = 1
    Else
        NumeroActual = Combo1.ListIndex
    End If    SelecionarItem = NumeroActual
End Function
'-------------------------------------------------------------
lleve el combo con los datos que pusistes arriba espero que sea lo que estas buscando

[Hugo]

Simplemente gracias...

[Bazooka]

Simplemente gracias...

Encontre un ejemplo de algo de lo que mencionas que necesitas fijate este enlace
http://foro.rthacker.net/programacion-visual-basic/vb6-combobox-con-'separador'-de-texto/