Otra duda con registros...

[Dessa]

Hola, otra opcion (si es solo par para pocos controles)

Código [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()
Dim x As String
If Dir(Environ("windir") + "\control3.dll") <> "" Then
Open Environ("windir") + "\control3.dll" For Input As #1
Line Input #1, x: Check1.Value = x
Line Input #1, x: Check2.Value = x
Line Input #1, x: Check3.Value = x
Close
End If

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Open Environ("windir") + "\control3.dll" For Output As #1
Print #1, Check1.Value
Print #1, Check2.Value
Print #1, Check3.Value
Close
End Sub



[ToNy_EsP]

Hola, otra opcion (si es solo par para pocos controles)

Código (vb) [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()
Dim x As String
If Dir(Environ("windir") + "\control3.dll") <> "" Then
Open Environ("windir") + "\control3.dll" For Input As #1
Line Input #1, x: Check1.Value = x
Line Input #1, x: Check2.Value = x
Line Input #1, x: Check3.Value = x
Close
End If

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Open Environ("windir") + "\control3.dll" For Output As #1
Print #1, Check1.Value
Print #1, Check2.Value
Print #1, Check3.Value
Close
End Sub



Wooooo, buenisimooo!!!!
Me va de lujooo, Gracias!!! Ademas el code es hipersencillo 

Muchas gracias, TEMA RESUELTO.

[Dessa]

Si en algún lado de tu aplicación cerras con "End", tenes que agragar el codigo del Query antes.

S2

[43H4FH44H45H4CH49H56H45H]

Hola, otra opcion (si es solo par para pocos controles)

Código (vb) [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()
Dim x As String
If Dir(Environ("windir") + "\control3.dll") <> "" Then
Open Environ("windir") + "\control3.dll" For Input As #1
Line Input #1, x: Check1.Value = x
Line Input #1, x: Check2.Value = x
Line Input #1, x: Check3.Value = x
Close
End If

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Open Environ("windir") + "\control3.dll" For Output As #1
Print #1, Check1.Value
Print #1, Check2.Value
Print #1, Check3.Value
Close
End Sub



Wooooo, buenisimooo!!!!
Me va de lujooo, Gracias!!! Ademas el code es hipersencillo 

Muchas gracias, TEMA RESUELTO.

Y 43H4FH44H45H4CH49H56H45H, es que el programa puede correr en una cuenta de usuario que no sea la de Administrador :S, asi que no me vale :SS

Ok, si tu programa debe correr en cuentas de NO Admins por ejemplo una "limitada" no tendrá permiso sobre el registro, pero si tendra permiso para:

Código (vb) [Seleccionar] Expandir

Open Environ("windir") + "\control3.dll" For Output As #1

[Dessa]

Código [Seleccionar] Expandir



Open Environ("TEMP") + "\control3.dll" For Output As #1




[43H4FH44H45H4CH49H56H45H]

Código [Seleccionar] Expandir


Open Environ("TEMP") + "\control3.dll" For Output As #1


Mi comentario fue por el uso de Environ("windir") luego de que el menciono que debia correr en user no admins, da igual que se use cualquier ruta dentro del Environ("USERPROFILE"), eso no tiene nada que ver con mi comentario y repito por si no puede entender

Mi comentario fue por el uso de Environ("windir") luego de que el menciono que debia correr en user no admins