Advertisement
jsbsan

inputboxmultiple

Jun 22nd, 2014
1,678
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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
Advertisement
RAW Paste Data Copied
Advertisement