Guardar eventos en un registro .txt

Iniciado por renga73, 23 Abril 2006, 11:56 AM

0 Miembros y 1 Visitante están viendo este tema.

renga73

Lo que quiero hacer es q mi aplicacion guarde en un .txt los eventos q van ocurriendo en tiempo de ejecucion. Por ejemplo al clickear en un boton que me registre q ese boton fue clikeado en tal fecha y hora.
Gracias

_Sergi_

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.



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...

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

Proyecto de Ingeniero

renga73

gracias amigo me fue de mucha utilidad eso