Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: Hugo en Agosto 22, 2010, 04:09:37 pm
-
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
-
Debe haber varias soluciones mejor, pero al vuelo se me ocurre poner en el evento click:
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
-
Hola, nunca e visto algo como esto pero podrías crearte un OCX a partir de algunos codigos existentes de comboBox.
-
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
-
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
-
;) Simplemente gracias...
-
;) 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/