\' Gambas class file
Private datos As New String[]
Public Function abrir(etiquetas As String[], variable As String[]) As String[]
Label1.text = etiquetas[0]
Label2.text = etiquetas[1]
Label3.text = etiquetas[2]
Label4.text = etiquetas[3]
Label5.text = etiquetas[4]
TextBox1.text = variable[0]
TextBox2.text = variable[1]
TextBox3.text = variable[2]
TextBox4.text = variable[3]
TextBox5.text = variable[4]
Me.Showmodal()
Return datos
End
Public Sub Form_Open()
End
Public Sub ButtonCancelar_Click()
Me.Close()
End
Public Sub ButtonAceptar_Click()
datos.Add(TextBox1.Text)
datos.Add(TextBox2.Text)
datos.Add(TextBox3.Text)
datos.Add(TextBox4.Text)
datos.Add(TextBox5.Text)
Me.Close()
End