Re: Añadir Datos De Un Combobox A Un Lisbox O En Un Textarea
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.
Alicante
Foro 
