elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Guardar eventos en un registro .txt
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Guardar eventos en un registro .txt  (Leído 1,920 veces)
renga73

Desconectado Desconectado

Mensajes: 53


Ver Perfil
Guardar eventos en un registro .txt
« en: 23 Abril 2006, 11:56 am »

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


En línea

_Sergi_


Desconectado Desconectado

Mensajes: 842



Ver Perfil
Re: Guardar eventos en un registro .txt
« Respuesta #1 en: 23 Abril 2006, 15:16 pm »

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.



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



En línea

Proyecto de Ingeniero
renga73

Desconectado Desconectado

Mensajes: 53


Ver Perfil
Re: Guardar eventos en un registro .txt
« Respuesta #2 en: 24 Abril 2006, 05:46 am »

gracias amigo me fue de mucha utilidad eso
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
guardar registro como un archivo
Programación General
ton_ 3 3,926 Último mensaje 1 Julio 2011, 08:52 am
por d(-_-)b
Inactivando registro de eventos.
Programación C/C++
APOKLIPTICO 4 2,754 Último mensaje 22 Diciembre 2011, 01:36 am
por APOKLIPTICO
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines