Imprimir Página - Guardar eventos en un registro .txt

Para este ejemplo necesitas: Un textbox (Text1) con la propiedad Multiline a True, una fuente (tipo de letra) más bien pequeña, y la propiedad ScrollBars = "2 - Vertical"; y por otro lado un botón, Command1, que es el que quieres registrar. Obviamente esto es igual para cualquier control y evento que quieras registrar, pero sólo lo he hecho con un botón y los eventos Click, MouseUp y MouseDown para que se entienda bien.

(http://img45.imageshack.us/img45/4879/registradordeeventos4lz.jpg)

Código:

Private Sub Command1_Click()
Añadirevento "Click"
End Sub

Public Sub Añadirevento(evento As String)
Dim Fecha, Hora As String
Fecha = Date
Hora = Time
Text1.Text = Text1.Text & vbNewLine & Fecha & "--" & Hora & "--" & evento
End Sub

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Añadirevento "MouseDown"
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Añadirevento "MouseUp"
End Sub

Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub

Para guardar el texto del TextBox primero tienes que copiar y pegar ésto bien en el code del form o en un módulo...

Código:

Public Sub Createfile(Contenido As String, nombrearchivo As String)
nombrearchivo = App.Path & "\" & nombrearchivo
If Not Right(nombrearchivo, 3) = "txt" Then
nombrearchivo = nombrearchivo & ".txt"
End If

On Error Resume Next
Open nombrearchivo For Output As #1
Print #1, Contenido
Close #1
End Sub

... y luego escribir Createfile Text1,"hola.txt"

Saludos y espero que te sirva. :D

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: renga73 en 23 Abril 2006, 11:56 am