document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2. Private fotos As String[] = ["autruche.png", "bear.png", "buffle.png", "cameleon.png"]
  3. Private contador As Integer = 0
  4. \' La siguiente variable contiene los formularios abiertos (son objetos),
  5. \' nos sirve para cuando cierre la aplicación, se cierren todos los formularios abiertos
  6. Public listaformularios As New Object[]
  7.  
  8. Public Sub _new()
  9.  
  10. End
  11.  
  12. Public Sub Form_Open()
  13.  
  14. End
  15. \'-----------------------------------------
  16. \' Método Show()
  17. \'-----------------------------------------
  18. Public Sub ButtonAbrirShowSinInstancia_Click()
  19.  Form1.tag = "Abriendo formulario con Show y Sin instancia"
  20.  Form1.setImagen("antilope.png")
  21.  listaformularios.add(form1)
  22.  Form1.tag = "Abriendo formulario con ShowModal y Sin instancia"
  23.  Form1.Show()
  24.  
  25. End
  26.  
  27. Public Sub ButtonAbrirShowConInstancia_Click()
  28.  
  29.  Dim formularioTemporal As New Form1
  30.  
  31.  formularioTemporal.tag = "Abriendo formulario con Show y Con instancia"
  32.  formularioTemporal.setImagen(fotos[contador])
  33.  contador += 1 \'esta variable la uso para aumentar el indice e ir cambiando la imagen que se muestra
  34.  If contador = fotos.count Then contador = 0
  35.  listaformularios.add(formularioTemporal) \'me añado a la lista de formularios
  36.  formularioTemporal.Show()
  37.  
  38. End
  39.  
  40. \'-----------------------------------------
  41. \' Método ShowModal()
  42. \'-----------------------------------------
  43. Public Sub ButtonAbrirShowModalSinInstancia_Click()
  44.   form1.tag = "Abriendo formulario con ShowModal y Sin instancia"
  45.    Form1.ShowModal()
  46. End
  47.  
  48. Public Sub ButtonSalir_Click()
  49.   Me.Close()
  50. End
  51.  
  52.  
  53. Public Sub Form_Close()
  54. Dim ftmp As Form
  55.  For Each ftmp In listaformularios
  56.    \'intento cerrar el formulario que tengo apuntado en la lista.
  57.    \'como es posible que ya estuviese cerrado, le pongo Try, para que no salte un error.
  58.    Try ftmp.Close()
  59.  Next
  60.  
  61. End
');