document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Private contenido As String
  4.  
  5. Public Sub _new(p As PersonaVo)
  6.  
  7.   LabelUsuario.text = "Usuario: " & p.nombre
  8.  
  9. End
  10.  
  11. Public Sub Form_Open()
  12.  
  13.   Me.center
  14.  
  15. End
  16.  
  17. Public Sub ButtonSalir_Click()
  18.  
  19.   contenido = ClaseLogSingleton.getContenido()
  20.   labelInformacion.text = Format$(Now, "yy:mm:dd hh:mm:ss") & " " & LabelUsuario.text & " pulso el boton " & " Salir \\n"
  21.   contenido &= LabelInformacion.text
  22.   ClaseLogSingleton.setContenido(contenido)
  23.   LabelInformacion.text =
  24.     Me.Close()
  25.  
  26. End
  27.  
  28. Public Sub Button1_Click()
  29.  
  30.   contenido = ClaseLogSingleton.getContenido()
  31.   LabelInformacion.text = Format$(Now, "yy:mm:dd hh:mm:ss") & " " & LabelUsuario.text & " pulso el boton " & " boton1 \\n"
  32.   contenido &= LabelInformacion.text
  33.   ClaseLogSingleton.setContenido(contenido)
  34.  
  35. End
  36.  
  37. Public Sub Button2_Click()
  38.  
  39.   contenido = ClaseLogSingleton.getContenido()
  40.   LabelInformacion.text = Format$(Now, "yy:mm:dd hh:mm:ss") & " " & LabelUsuario.text & " pulso el boton " & " boton2 \\n"
  41.   contenido &= LabelInformacion.text
  42.   ClaseLogSingleton.setContenido(contenido)
  43.  
  44. End
  45.  
  46. Public Sub Button3_Click()
  47.  
  48.   contenido = ClaseLogSingleton.getContenido()
  49.   LabelInformacion.text = Format$(Now, "yy:mm:dd hh:mm:ss") & " " & LabelUsuario.text & " pulso el boton " & " boton3\\n"
  50.   contenido &= LabelInformacion.text
  51.   claseLogSingleton.setContenido(contenido)
  52.  
  53. End
  54.  
  55. Public Sub Button4_Click()
  56.  
  57.   contenido = ClaseLogSingleton.getContenido()
  58.   LabelInformacion.text = Format$(Now, "yy:mm:dd hh:mm:ss") & " " & LabelUsuario.text & " pulso el boton " & " boton4 \\n "
  59.   contenido &= LabelInformacion.text
  60.   ClaseLogSingleton.setContenido(contenido)
  61.  
  62. End
  63.  
  64. Public Sub Button5_Click()
  65.  
  66.   contenido = ClaseLogSingleton.getContenido()
  67.   LabelInformacion.text = Format$(Now, "yy:mm:dd hh:mm:ss") & " " & LabelUsuario.text & " pulso el boton " & " boton5 \\n"
  68.   contenido &= LabelInformacion.text
  69.   ClaseLogSingleton.setContenido(contenido)
  70.  
  71. End
  72.  
  73. Public Sub Button6_Click()
  74.  
  75.   contenido = ClaseLogSingleton.getContenido()
  76.   LabelInformacion.text = Format$(Now, "yy:mm:dd hh:mm:ss") & " " & LabelUsuario.text & " pulso el boton " & " boton6 \\n "
  77.   contenido &= LabelInformacion.text
  78.   ClaseLogSingleton.setContenido(contenido)
  79.  
  80. End
');