Hola soy nuevo en vb. Guardar un resultado..

Quería saber como guardar un resultado que obtengo en un label y que este no se borre. Por ej: en el label obtengo el numero 10 en resultado y cuando cierre el programa y lo abra de nuevo este resultado no se borre y que pase lo mismo si apago la cpu y la vuelva a prender. Desde ya muchas Gracias...

1 Respuesta

Respuesta
1
Creo que te sería útil usar el registro de windows, las siguientes instrucciones te guardan un valor en un ligar particular del registro
Guarda el valor "ValorClave" en la clave "NombreClave" de la sección "SeccionClave"
SaveSetting "NombreAplicacion", "NombreSeccion", "NombreClave", "ValorClave"
Extrae el valor guardado con la sentencia anterior
varClave = GetSetting ("NombreAplicacion", "NombreSeccion", "NombreClave")
En la primera instrucción, ValorClave sería el 10 que tienes en el label y en la segunda instrucción, varClave sería el label en que quieres poner la clave.
Hola de nuevo...
Conseguí la forma de guardarlo en un txt y cargarlo de nuevo con estos códigos:
'Para guardar
Open "prueba.txt" For Output As #2
Print #2, label1.Caption
Print #2, label2.Caption
Print #2, label3.Caption
Close #2
'para cargar
Private Sub Form_Load()
 Dim Linea1 As String
 Dim Linea2 As String
 Dim Linea3 As String
Open "Vendidas.txt" For Input As #2
Do While Not EOF(2)
Line Input #2, linea1
Line Input #2, linea2
Line Input #2, linea3
label1.Caption = linea1
label2.Caption = linea2
label3.Caption = linea3
Loop
Close #2
Como veras son varios resultados que quiero guardar, pero en este caso se puede entrar al .txt y variar los resultados que eso no quiero que suceda. El guardar en un registro se me hace más seguro pero como soy nuevo en este tema, todavía no entiendo como se hace esa aplicación. ¿Me podrías dar un ejemplo con códigos? Desde ya muchas gracias saludos!
Si entiendo bien, lo podrías hacer de la siguiente forma
'Para guardar
    SaveSetting App. EXEName, "Datos", "dato1", label1. Caption
SaveSetting App. EXEName, "Datos", "dato2", label2. Caption
SaveSetting App. EXEName, "Datos", "dato3", label3. Caption
'para cargar
Private Sub Form_Load()
    label1.Caption = GetSetting (App.EXEName, "Datos", "dato1")
    label2.Caption = GetSetting (App.EXEName, "Datos", "dato2")
    label3.Caption = GetSetting (App.EXEName, "Datos", "dato3")
Loop
El registro no es inviolable, pero es más complicado de acceder para el común de los usuarios.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas