Inputbox Multiple

En gambas3, existe la instrucción inputbox (enlace), que nos permite hacer que el usuario introduzca valores.

Static Function InputBox ( Prompt As String [ , Title As String, Default As String ] ) As String

Os dejo aqui un pequeño código que permite usarlos cuanto necesitamos que el usuario introduzca varios valores (lo he programado para 5 valores)

-

Data hosted with ♥ by Pastebin.com - Download Raw - See Original

1. ' Gambas class file
2.  
3. Private datos As New String[]
4.  
5. Public Function abrir(etiquetas As String[], variable As String[]) As String[]
6.  
7.   Label1.text = etiquetas[0]
8.   Label2.text = etiquetas[1]
9.   Label3.text = etiquetas[2]
10.   Label4.text = etiquetas[3]
11.   Label5.text = etiquetas[4]
12.  
13.   TextBox1.text = variable[0]
14.   TextBox2.text = variable[1]
15.   TextBox3.text = variable[2]
16.   TextBox4.text = variable[3]
17.   TextBox5.text = variable[4]
18.   Me.Showmodal()
19.  
20.   Return datos
21.  
22. End
23.  
24. Public Sub Form_Open()
25.  
26. End
27.  
28. Public Sub ButtonCancelar_Click()
29.  
30.   Me.Close()
31.  
32. End
33.  
34. Public Sub ButtonAceptar_Click()
35.  
36.   datos.Add(TextBox1.Text)
37.   datos.Add(TextBox2.Text)
38.   datos.Add(TextBox3.Text)
39.   datos.Add(TextBox4.Text)
40.   datos.Add(TextBox5.Text)
41.   Me.Close()
42.  
43. End

-

Para llamarlo:

  datos = FormInput.abrir(etiquetas, datos)

Donde:
etiquetas: es un array de cadena, con el texto que debe aparecer en cada etiqueta del inputboxmultiple
datos: es un array de cadena, con los textos iniciales o por defecto que deben de aparecer en los textbox del inputboxmultiple

El método "abrir" devuelve un array de cadenas, que lo asignamos al array de cadenas.

Ejemplo de uso:

-

Data hosted with ♥ by Pastebin.com - Download Raw - See Original

1.  
2. Public Sub Button1_Click()
3.  
4.   Dim datos As New String[]
5.   Dim etiquetas As New String[]
6.  
7.   etiquetas.Add("Primera:")
8.   etiquetas.Add("Segunda:")
9.   etiquetas.Add("Tercera:")
10.   etiquetas.Add("Cuarta:")
11.   etiquetas.Add("Quinta:")
12.  
13.   datos.Add("dato1")
14.   datos.Add("dato2")
15.   datos.Add("dato3")
16.   datos.Add("dato4")
17.   datos.Add("dato5")
18.  
19.   datos = FormInput.abrir(etiquetas, datos)
20.  
21.   Label1.text = datos[0]
22.   Label2.text = datos[1]
23.   Label3.text = datos[2]
24.   Label4.text = datos[3]
25.   Label5.text = datos[4]
26.  
27. End

-

Descargar

Saludos