Uso del control LISTBOX en Gambas2

Ejemplo de uso de un listbox

Contestando una pregunta en el foro de gambas-es.org, he hecho una pequeña aplicación usando un listbox, y la subo al blog para que también la podáis ver.

Se trata de que un usuario pueda elegir varios datos de una lista, y que el programa lo pueda procesarlos en un array.


Código:

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:

Espero que os sea útil. Saludos