tengo esto:
pero con esta opción sólo puedo añadir un dato del combobox y necesito que el usuario pueda elegir varios...
Gracias
Añadir Datos De Un Combobox A Un Lisbox O En Un Textarea. SOLUCIONADO!!
Objetivo: Añadir Datos De Un Combobox A Un Lisbox O En Un Textarea. SOLUCIONADO!!
última edición por sasogu el Sabado, 27 Agosto 2011, 09:33; editado 3 veces
Hola, imagino que la solución debe ser sencilla pero no la encuentro
tengo esto:
pero con esta opción sólo puedo añadir un dato del combobox y necesito que el usuario pueda elegir varios...
Gracias
tengo esto:
pero con esta opción sólo puedo añadir un dato del combobox y necesito que el usuario pueda elegir varios...
Gracias
última edición por sasogu el Sabado, 27 Agosto 2011, 09:33; editado 3 veces
Objetivo: Re: Añadir Datos De Un Combobox A Un Lisbox O En Un Textarea
última edición por jsbsan el Sabado, 27 Agosto 2011, 06:59; editado 3 veces
Creo que con un combobox , no puedes elegir varias opciones...
Pero con un listbox si:
PUBLIC SUB Form_Open()
ListBox1.Add("Pepe")
listbox1.Add("Ana")
listbox1.Add("Miguel")
listbox1.Add("Juana")
listbox1.mode = 2 'eleccion multiple
END
PUBLIC SUB Button1_Click()
DIM a AS Integer ' para el contador for next
DIM numero_seleccion AS Integer ' guardamos el numero de datos seleccionados
DIM cadena_arr AS String[] 'lista de valores seleccionados
FOR a = 0 TO listbox1.count - 1
IF listbox1[a].Selected = TRUE THEN
numero_seleccion += 1
IF numero_seleccion = 1 THEN
Label1.Text = listbox1[a].Text
ELSE
Label1.Text &= "|" & listbox1[a].Text
ENDIF
ENDIF
NEXT
'imprimimos en la pantalla de debug
PRINT "El numero de palabras seleccionadas es: ", numero_seleccion
cadena_arr = Split(Label1.Text, "|")
'mostar en el debug, la lista de valores seleccionado
FOR a = 0 TO cadena_arr.count - 1
PRINT cadena_arr[a]
NEXT
END
Pantallazo:
De la forma que lo he hecho, el labeltext1.text, lo puedes procesar con split , para sacar las lista de valores seleccionado (cadena_arr)
Saludos
Nota:
me ha quedado bien esta explicación, hago una nueva entrada en mi blog.
Pero con un listbox si:
PUBLIC SUB Form_Open()
ListBox1.Add("Pepe")
listbox1.Add("Ana")
listbox1.Add("Miguel")
listbox1.Add("Juana")
listbox1.mode = 2 'eleccion multiple
END
PUBLIC SUB Button1_Click()
DIM a AS Integer ' para el contador for next
DIM numero_seleccion AS Integer ' guardamos el numero de datos seleccionados
DIM cadena_arr AS String[] 'lista de valores seleccionados
FOR a = 0 TO listbox1.count - 1
IF listbox1[a].Selected = TRUE THEN
numero_seleccion += 1
IF numero_seleccion = 1 THEN
Label1.Text = listbox1[a].Text
ELSE
Label1.Text &= "|" & listbox1[a].Text
ENDIF
ENDIF
NEXT
'imprimimos en la pantalla de debug
PRINT "El numero de palabras seleccionadas es: ", numero_seleccion
cadena_arr = Split(Label1.Text, "|")
'mostar en el debug, la lista de valores seleccionado
FOR a = 0 TO cadena_arr.count - 1
PRINT cadena_arr[a]
NEXT
END
Pantallazo:
De la forma que lo he hecho, el labeltext1.text, lo puedes procesar con split , para sacar las lista de valores seleccionado (cadena_arr)
Saludos
Nota:
me ha quedado bien esta explicación, hago una nueva entrada en mi blog.
última edición por jsbsan el Sabado, 27 Agosto 2011, 06:59; editado 3 veces
Objetivo: Re: Añadir Datos De Un Combobox A Un Lisbox O En Un Textarea. SOLUCIONADO!!
No hay palabras!! Muy agradecido, voy a visitar el blog como cada día 
Página 1 de 1
No puede crear mensajesNo puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Página generada en:: 0.1005s (PHP: -27% SQL: 127%)
Consultas SQL: 25 - Debug off - GZIP Activado