Sección de códigos , trucos y ejemplos para visual basic

75 - Guardar en el registro datos de nuestro programa usando las funciones SaveSetting y GetSetting

Este simple ejemplo muetra como usar las funciones GetSetting y SaveSetting de Visual Basic para grabar datos de nuestro programa en el registro de windows.

Nota. El uso de estas funciones podría no servir para guardar demasiados datos del programa. También podría generar error al querer intentar acceder al registro y no tener privilegios. Por ese motio, es recomendable utilizar archivos ini , ya que son fáciles de implemetanr y permiten almacenar y leer la información de configuración de nuestro programa.

En el ejemplo, se guarda la posición y dimensión del formulario con la función SaveSetting, o sea los valores Left Top, Height y Width. Esto lo hace cuando se descarga el Formulario en el evento Unload

Luego para poder reestablecer el tamaño y posición del formulario, se utiliza la función GetSetting en el evento FormLoad. Si se quiere eliminar los datos del registro, usar la función DeleteSetting

Nota: en el siguiente enlace, hay otro ejemplo similar que usa las funciones vistas aquí, pero para guardar otros datos, por ejemplo datos de controles.

SaveSetting y GetSetting para grabar datos de nuestra aplicación

Código fuente en un Formulario:

Option Explicit Const NombreProg = "Mi Programa" 'Nombre del programa para la seccion en el registro de windows. _ 'Al cargar el formulario leemos los valores del tamaño y posicion _ anterior del formulario desde el registro de windows: ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Form_Initialize() Me.Height = CInt(GetSetting(NombreProg, "Tamaño", "Height", Me.Height)) Me.Width = CInt(GetSetting(NombreProg, "Tamaño", "Width", Me.Width)) Me.Left = CInt(GetSetting(NombreProg, "Posicion", "Left", Me.Left)) Me.Top = CInt(GetSetting(NombreProg, "Posicion", "Top", Me.Top)) MsgBox "Cambia de tamaño y lugar el formulario, luego cierralo " & _ "y vuelve a abrirlo para ver que los cambios se guardan " & _ "en el registro", vbInformation End Sub 'Cada vez que descarguemos el formulario _ guardamos la posicion y el tamaño en el registro de windows ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Form_Unload(Cancel As Integer) If Not Me.WindowState = 1 Then Call SaveSetting(NombreProg, "Tamaño", "Height", Me.Height) Call SaveSetting(NombreProg, "Tamaño", "Width", Me.Width) Call SaveSetting(NombreProg, "Posicion", "Left", Me.Left) Call SaveSetting(NombreProg, "Posicion", "Top", Me.Top) End If End Sub

Recursos visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb