Como Guardar datos en el registro de Windows

Iniciado por ANTRAX, Julio 26, 2010, 11:03:30 AM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Julio 26, 2010, 11:03:30 AM Ultima modificación: Julio 08, 2011, 10:15:02 AM por ANTRAX
Hola. Create un formulario llamado Form1, y en el pon un CheckBox, llamado Check1. Depués añade este código.

Código: vb
  Private Sub Form_Load()
  Check1.Value = GetSetting(App.Title, Form1.Name, Check1.Name, vbChecked)
  End Sub


Código: vb
  Private Sub Form_Unload(Cancel As Integer)
  SaveSetting App.Title, Form1.Name, Check1.Name, Check1.Value
  End Sub


Tendrás que hacer lo mismo con cada uno de los controles de tu formulario.
Se podría hacer incluso un procedimiento para guardar en un bucle todas las propiedades de todos los controles de un formulario, pero eso te lo dejamos investigar a vos.
en caso de que fuera un texto un label se reemplaza el codigo por las propiedades de un texto, por ejemplo

Código: vb
   Private Sub Form_Load()
  text1.text = GetSetting(App.Title, Form1.Name, text1.name, vbChecked)
  End Sub


Código: vb
   Private Sub Form_Unload(Cancel As Integer)
    SaveSetting App.Title, Form1.Name, text1.name, text1.text
   End Sub


para una label seria igual pero con label1.caption..