SaveSetting en Vista o Seven

[Angeldj27]

Saludos alguien me puede decir si el SaveSetting y GetSetting funcionan bien en vista o en windows seven si alguien lo ha probado que me pueda decir.


Saludos...

[Dessa]

Hola, probé con un ejemplo sencillo en W7 y sí funcionó, me imagino que en vista tambien tendría que andar (Tené en cuenta que no uso antivirus)

Código [Seleccionar] Expandir


Private Sub Form_Load()   
    'Apenas carga el programa, carga los datos   
    Cargar_De_Registro   
 
    Me.Caption = " ejemplo de GetSetting y SaveSetting" 
 
End Sub 
 
'Lee los datos del registro con la función GetSetting _   
recorre los textbox y le asigna el valor a cada uno de ellos   
Sub Cargar_De_Registro()   
    Dim i As Integer 
    For i = 0 To Text1.Count - 1   
        Text1(i).Text = GetSetting(App.EXEName, _   
                                   "TextBox", _   
                                   "Text" & i)   
       
    Next 
End Sub 
 
Private Sub Form_Unload(Cancel As Integer)   
Grabar_En_Registro   
End Sub 
 
 
 
Private Sub Grabar_En_Registro()   
    Dim i As Integer 
    For i = 0 To Text1.Count - 1   
       
        Call SaveSetting(App.EXEName, "TextBox", _   
                         "Text" & i, Text1(i).Text)   
       
    Next 
End Sub 




Saludos

[Angeldj27]

Hey gracias Dessa por responder estuve lejos de mi compu par de dias jaja no se como lo aguante... y no habia podido chekear, pero ahoro lo pruebo y luego aviso

Saludos...

[Dessa]

Era mas que nada para decirte que funciona bien en windows seven pero si vas a usar ese code agregá un array de Texbox o por lo menos un Texbox1 con la propiedad index = 0 (cero).

Saludos

[Angeldj27]

No problem ya el code que tengo que usar esta armado era solo para saber si me funcionaba pork no tengo el vista a mano ahoramismo.
lo que pasa es que habia intentado con otras cosas y no me funcionaron en el pasado. vista me daba problema, como en guandar algo en el registro de win con el RegWrite pero bueno esa es otra historia...

Saludos...