MultiInput
Una nueva clase para facilitar la introducción de datos en Gambas2
En gambas existe la clase InputBox, con la cual podemos obtener fácilmente del usuario una cadena para asignarla posteriormente a una variable. Un ejemplo:
Asi, obtenemos el valor de "edad".
Pues bien, he desarrollado una nueva clase , para poder trabajar con mas asignaciones, obteniendo un formulario como este:
Para poderlo usar en vuestros programas, os paso el código fuente,del cual tendreis que:
- Descomprimirlo y abrirlo con Gambas2.
- Crear el ejecutable (Proyecto/Crear/Ejecutable).
- Os creara un nuevo control personalizado que lo podréis incluir en vuestros proyectos (Proyecto/Propiedades/Componentes/Componentes del usuario)
Os explico a continuación el uso de la nueva clase:
| Propiedad/Método | Nombre | Definición |
| Atributo | titulo | Define el titulo del formulario. |
| Método | add | Añade una variable,texto de presentación, y opcionalmente valor inicial |
| Método | mostrar | Muestra el formulario para rellenar los datos. Nota: El botón cancelar hara que los valores no se guarden y se muestre “N/A” |
| Método | devuelve | Devuelve una cadena de texto del valor de la variable que le hayamos indicado. |
Os paso también un ejemplo del uso de la nueva clase.
Esta es la transcripcion del código del ejemplo:
PUBLIC SUB Form_Open()
DIM mu AS NEW MultiInput
mu.titulo = "hola esto es una prueba"
mu.add("nombre1", "nombre usuario:", "ninguno")
mu.add("apellidos1", "primer apellido:", "")
mu.add("apellidos2", "segundo apellido:", "")
mu.add("direccion", "direccion de vivienda:")
mu.mostrar()
TextArea1.Text = mu.devuelve("nombre1") & "\n"
TextArea1.Text &= mu.devuelve("apellidos1") & "\n"
TextArea1.Text &= mu.devuelve("apellidos2") & "\n"
TextArea1.Text &= mu.devuelve("direccion") & "\n"
TextArea1.Text &= "Ahora probamos con una variable que no existe:" & "\n"
TextArea1.Text &= mu.devuelve("dksl") & "\n"
END
Luego le voy pasando el titulo del formulario
mu.titulo
Y voy añadiendo variables, primero el nombre, luego el texto de la etiqueta texto que pondra, y el valor por defecto.
mu.add({nombre_variable},{texto de la etiqueta},{valor opcionar})
Luego llamamos al formulario con:
mu.mostrar()
Y para obtener los valores, usamos el método devuelve indicandole el nombre de la variable
mu.devuelve({nombre_variable})
Bueno, espero que os sea util.
Saludos
Nota: Me podeis ayudar a continuar subiendo programas apuntandoos atraves de este enlace a Beruby  Gracias |