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. ;D ;D
Saludos...
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)
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
Hey gracias Dessa por responder estuve lejos de mi compu par de dias jaja no se como lo aguante... :-X :-X y no habia podido chekear, pero ahoro lo pruebo y luego aviso
Saludos...
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
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... ;D
Saludos...