Visual Basic - Urgentisimo!!!

Life is soft - evento anual de software empresarial
   
Vista:

Urgentisimo!!!

Publicado por Juan Tello (12 intervenciones) el 26/02/2010 15:27:36
Necesito contar los click sobre un Command y guardar en un archivo de texto. La idea es que siempre que ejecute el programa, al hacer click en el Command se siga acumulando en el archivo de texto y pueda leer este acumulado al hacer click sobre otro command y mostrar el resultado en un Label.

Muchas gracias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Urgentisimo!!!

Publicado por mauricio (50 intervenciones) el 26/02/2010 19:11:09
yo haria esto juan..

Option Explicit
dim Contador as integer 'declaras publico el contador

Sub Command1_Click()
'acumulas las veces que haces click
contador=contador+1
End Sub

Sub CommandResult_click()
'muestras el contador en la etiqueta
label1.caption = contador
End Sub

espero te sirva....cualquier consulta aca estamos..un abrazo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de A.H.H

RE:Urgentisimo!!!

Publicado por A.H.H (116 intervenciones) el 26/02/2010 20:12:20
Hola
porque no lo haces en vez de archivo de texto con el registro de windows
con las funciones savesetting y getsetting.(deletesetting para eliminar)
estas funciones escriben en la clave de registro:
HKEY_CURRENT_USER\Software\VB and VBA Program Settings

te pongo un ejemplo:

en un form pon dos botones y un label, el command1 acumula pulsaciones y el command2 las lee y las muestra en el label.

--------------------------------------------------------------------------------------------------
Public contador As Integer

Private Sub Command1_Click()
'leemos el ultimo valor guardado y lo metemos a variable contador'
contador = GetSetting(App.EXEName, "boton", "nºveces", contador)
'si es la primera vez que se ejecuta el programa'
'comprobamos que el valor exista y sino que valga 0'
If contador = Null Then
contador = 0
Call SaveSetting(App.EXEName, "boton", "nºveces", contador)
Else
'si existe el valor le sumamos 1 y guardamos'
contador = contador + 1
Call SaveSetting(App.EXEName, "boton", "nºveces", contador)
End If
End Sub

Private Sub Command2_Click()
contador = GetSetting(App.EXEName, "boton", "nºveces", contador)
Label1.Caption = "contador= " & contador
End Sub

--------------------------------------------------------------------------------------------------------

salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar