Inicio > Visual Basic > granpeke > Hola soy nuevo en vb. guardar un resultado..

Hola soy nuevo en vb. guardar un resultado..

Experto:
Usuario: Anónimo Fecha: 18/09/2009
Valoración: (3,00 sobre 5) Categoría: Visual Basic
10/09/2009
Usuario
Queria saber como guardar un resultado q obtengo en un label y q 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 q pase lo mismo si apago la cpu y la vuelva a prender. Desde ya muchas Gracias.....
10/09/2009
mael22lar, experto respondiendo en Visual Basic
Experto
Hola:
Creo que te sería útil usar el registro de windows, las siguientes instrucciones te guardan un valor en un ligar particular del reguistro
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.
Espero que te sirva.
Saludos.
18/09/2009
Usuario
Hola de nuevo...
consegui la forma de guardarlo en un txt y cargarlo de nuevo con estos codigos:
'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 q quiero guardar, pero en este caso se puede entrar al .txt y variar los resultados q eso no quiero q suceda. El guardar en un registro se me hace mas seguro pero como soy nuevo en este tema, todavia no entiendo como se hace esa aplicacion. Me podrias dar un ejemplo con codigos??? desde ya muchas gracias saludos!!!
18/09/2009
mael22lar, experto respondiendo en Visual Basic
Experto
Si entiendo bien, lo podrías hacer de la sigiente 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.
Saludos.
18/09/2009
Usuario
Ok Voy a probar Gracias por tu aporte
Enlaces patrocinados