\' Gambas class file
Private contenido As String
Public Sub _new(p As PersonaVo)
LabelUsuario.text = "Usuario: " & p.nombre
End
Public Sub Form_Open()
Me.center
End
Public Sub ButtonSalir_Click()
contenido = ClaseLogSingleton.getContenido()
labelInformacion.text = Format$(Now, "yy:mm:dd hh:mm:ss") & " " & LabelUsuario.text & " pulso el boton " & " Salir \\n"
contenido &= LabelInformacion.text
ClaseLogSingleton.setContenido(contenido)
LabelInformacion.text =
Me.Close()
End
Public Sub Button1_Click()
contenido = ClaseLogSingleton.getContenido()
LabelInformacion.text = Format$(Now, "yy:mm:dd hh:mm:ss") & " " & LabelUsuario.text & " pulso el boton " & " boton1 \\n"
contenido &= LabelInformacion.text
ClaseLogSingleton.setContenido(contenido)
End
Public Sub Button2_Click()
contenido = ClaseLogSingleton.getContenido()
LabelInformacion.text = Format$(Now, "yy:mm:dd hh:mm:ss") & " " & LabelUsuario.text & " pulso el boton " & " boton2 \\n"
contenido &= LabelInformacion.text
ClaseLogSingleton.setContenido(contenido)
End
Public Sub Button3_Click()
contenido = ClaseLogSingleton.getContenido()
LabelInformacion.text = Format$(Now, "yy:mm:dd hh:mm:ss") & " " & LabelUsuario.text & " pulso el boton " & " boton3\\n"
contenido &= LabelInformacion.text
claseLogSingleton.setContenido(contenido)
End
Public Sub Button4_Click()
contenido = ClaseLogSingleton.getContenido()
LabelInformacion.text = Format$(Now, "yy:mm:dd hh:mm:ss") & " " & LabelUsuario.text & " pulso el boton " & " boton4 \\n "
contenido &= LabelInformacion.text
ClaseLogSingleton.setContenido(contenido)
End
Public Sub Button5_Click()
contenido = ClaseLogSingleton.getContenido()
LabelInformacion.text = Format$(Now, "yy:mm:dd hh:mm:ss") & " " & LabelUsuario.text & " pulso el boton " & " boton5 \\n"
contenido &= LabelInformacion.text
ClaseLogSingleton.setContenido(contenido)
End
Public Sub Button6_Click()
contenido = ClaseLogSingleton.getContenido()
LabelInformacion.text = Format$(Now, "yy:mm:dd hh:mm:ss") & " " & LabelUsuario.text & " pulso el boton " & " boton6 \\n "
contenido &= LabelInformacion.text
ClaseLogSingleton.setContenido(contenido)
End