Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement