 Autor
|
Tema: VB6: ComboBox con "Separador" de texto (Leído 10,001 veces)
|
ProgramadorVB
 Desconectado
Mensajes: 29
|
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 haya implementado o visto alguna vez...
Desde ya muchas gracias,
Un Saludo
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
.
Una solucion sencilla es que les pongas un tag a los nodos seleccionables y a los que no los dejas tal cual (Sin tocarlos) y al momento del clic Cancelarlo (Dejando el click en el Nodo Madre es decir el que tiene el Tag con algo)
Seria algo asi
Desde el Item donde se dio un clic ir en reversa buscando el item que tiene tag (este seria el Nodo seleccionable!¡.)
Me parece que de igual forma se puede hacer con SendMessage, pero ignoro el como!¡.
Dulces Lunas!¡.
|
|
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
|
LeandroA
|
hola, es un verdadero quilombo hacer eso, mas aun si lo queres hacer desde el el combobox de vb tenes que hookear la aplicación esperando que se cree la ventana "ComboLBox" para poder cambiar su estilo a LBS_OWNERDRAWFIXED despues subclasificar esa ventana y redibujar el control y elminar algunos mensajes, mas facil es crear directamente el control con CreateWindowEx y hacer el subclasificado.
de todas formas es algo muy abanzado si es que no tienes los conocimientos necesarios.
no se que tantas necesidad tengas de hacer eso o cual es la situación, pero creo que tenes opciones mas sencillas como por ejemplo crear un formulario con algunos labels o utilizar un menu. o un treeview. un poco de imaginación
Saludos.
|
|
|
|
|
En línea
|
|
|
|
ProgramadorVB
Desconectado
Mensajes: 29
|
Hola Leandro,
Gracias por tu mensaje, tomo tu palabra, porque sé que la tenes más clara que yo en estos temas, años luz... voy a buscar alternativas a esta forma de presentar y desplegar las opciones que necesito...
gracias!!
Un saludo
ProgramadorVB (Hugo)
|
|
|
|
« Última modificación: 23 Agosto 2010, 00:41 am por ProgramadorVB »
|
En línea
|
|
|
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
o sino usa "Frame"  Ejemplo:  El frame es lo que dice "Sumar Los Datos".. Osea, Ese "Cuadrado" Que Contiene Cosas :3 |
|
|
|
« Última modificación: 23 Agosto 2010, 00:46 am por petro_boca »
|
En línea
|
|
|
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
Responde que me pongo nervioso  |
|
|
|
|
En línea
|
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
No hace falta ser un genio para saer que lo que dices pedro_boca no tiene nada que ver con lo que pide... Pd: Eres el rey del doble post... DoEvents¡!  |
|
|
|
|
En línea
|
|
|
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
|
|
|
|
|
En línea
|
|
|
|
ProgramadorVB
Desconectado
Mensajes: 29
|
Hola,
Gracias por los comentarios... pero quiero seguir en el tema principal... el tema del combobox...
Alguien más sabe como hacer eso que pido??
Desde ya gracias!!!
|
|
|
|
|
En línea
|
|
|
|
rob1104
Desconectado
Mensajes: 340
Usuario común
|
Hola,
Gracias por los comentarios... pero quiero seguir en el tema principal... el tema del combobox...
Alguien más sabe como hacer eso que pido??
Desde ya gracias!!!
No probaste lo que mencionó BlackZeroX??? seria mas o menos asi: Private Sub Combo1_Click() If InStr(Combo1.Text, "----") Then Dim i As Integer For i = 1 To Combo1.ListCount If Not InStr(Combo1.List(i), "----") Then Combo1.Text = Combo1.List(i) Exit Sub End If Next End If End Sub Private Sub Form_Load() Combo1.AddItem ("----comidas----") Combo1.AddItem ("pizza") Combo1.AddItem ("pollo") Combo1.AddItem ("choripan") Combo1.AddItem ("----bebidas----") Combo1.AddItem ("agua") Combo1.AddItem ("cerveza") Combo1.AddItem ("gaseosa") Combo1.AddItem ("vino") End Sub
Estudialo y adaptalo a tu caso. Saludos
|
|
|
|
« Última modificación: 23 Agosto 2010, 04:10 am por rob1104 »
|
En línea
|
Sin análisis de requisitos o sin diseño, programar es el arte de crear errores en un documento de texto vacío.
|
|
|
|
 |
