Gambas
(Nivel 2)
Carúpano, Marzo de 2008
Programación En GAMBAS 2.0.0
1
USO DE CONTROLES MAS COMUNES LISTBOX: El control ListBox implementa una lista de items seleccionables. Para crear un objeto ListBox dibujamos el objeto sobre un formulario eligiendo el tamaño y lugar que ocupara en función del arrastre que se haga con el mouse.Algunas de sus propiedades son las siguientes:
● ●
Name: Inherente al nombre del objeto. Ejem: MiListaBox. Enable: Acepta valores booleanos (True o False), para permitir si se pueden seleccionar items del control o no. Font: Permite elegir el tipo y tamaño de la fuente que mostrara el ListBox. List: Esta propiedad permite agregar un grupo de items que se mostraran en el control.Mode: Permite colocar el control en diferentes modos (single, multiple, none), de manera que se pueda seleccionar un solo item (single) o varios a la vez (multiple)
● ●
●
● ●
ToolTip: Muestra mensajes emergentes al colocarse sobre el control. Visible: Acepta valores booleanos (True o False), para indiciar si el objeto estará visible o no en el formulario.En el siguiente ejemplo vamos a crear un programa que permita ingresar, eliminar
y visualizar elementos a través de un objeto ListBox. Se quiere con este programa que al escribir en la casilla ingrese un dato, este aparezca en la lista del lado derecho. Adicionalmente al hacer clic sobre cualquier item de la lista este aparezca reflejado en una etiqueta. También deberá permitir eliminar un item seleccionado o uno a uno los items de la lista. Para ello creamos un Proyecto Nuevo en Gambas y dibujamos un formulario con los controles (01 TexBox, 01 ListBox, 04 Button, 01 Label), que se muestran a continuación:
Programación En GAMBAS 2.0.0
2
La propiedad Name del control ListBox la cambiamos por el nombre ListaBox. El resto de los objetos los dejamos con sus nombres predefinidos.A continuación hacemos doble clic sobre el formulario principal y colocamos el siguiente código: ME.Center() Esta instrucción permitirá que el formulario este centrado en relación con el tamaño y resolución de nuestro monitor. Al comienzo del código del formulario principal escribimos lo siguiente: ' Gambas class file PUBLIC Control AS BooleanEsta variable permitirá controlar la validación de la casilla de texto para saber si esta vacía o no.
En el Button1 (insertar en ListBox), coloque el siguiente código: PUBLIC SUB Button1_Click() control = TRUE Validar IF control = FALSE THEN RETURN ListaBox.Add(TextBox1.Text) TextBox1.Text = ""
Programación En GAMBAS 2.0.0 3
textbox1.SetFocus END Al presionar el botón este valida en primer lugar que la casilla de texto no este vacía; si lo esta emite un mensaje de advertencia y no agrega el dato a la lista, ya que cambia el valor de la variable Control.
El evento Validar tendrá el siguiente código: PUBLIC SUB Validar() IF textbox1.Text = "" THEN Message.Info("debe escribir un nombre") TextBox1.SetFocus Control = FALSE ENDIF END En el Button2 (Eliminar uno a uno), coloque el siguiente código: PUBLIC SUB Button2_Click() ListaBox.Remove(0) ENDEsto permitirá usar el método Remove para eliminar uno a uno el contenido de la lista. El numero 0 indica que debe hacerlo hasta el primer item de la lista.
En el Button3 (Eliminar seleccionado), coloque el siguiente código: PUBLIC SUB Button4_Click() DIM CantidadItems AS Integer CantidadItems = ListaBox.Index IF CantidadItems >= 0 THEN ListaBox.Remove(CantidadItems) ELSE IF ListaBox.Count > 0 AND CantidadItems = 1 THEN Message.Info("Debe seleccionar algo") ENDIF ENDIF END El método Index permitirá conocer la posición del item seleccionado en la lista de manera de eliminarlo de la misma. Si no se seleccionada ninguno envía un mensaje de advertencia.
Programación En GAMBAS 2.0.0
4...
Regístrate para leer el documento completo.