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

208 - SaveSetting y GetSetting. Guardar y recuperar datos del programa

Contenido

Notas
Ejemplo 1
Ejemplo 2
Enlaces relacionados

Nota

Es recomendable en vez de utilizar estas funciones, guardar datos de confguración del programa mediante archivos INI vía api de windows. ( Ver ejempo ). Utilizando estos ficheros se cuenta con mas posibilidades de organizar los datos de configuración, como también evitar errores de acceso al registro del sistema. Ademés es muy simple de implementarlos.

Ejemplo 1

Ejemplo de como utilizar dichas funciones para guardar datos de la aplicación en el registro.

El primero, que puede ser utilizado no solo para un ListView si no para cualquier otro, como un Flexgrid, DataGrid etc.., lo que hace es al cargar el formulario, lee del registro mediante la función GetSetting los valores del ancho de las columnas, que previamente se graban con la función SaveSetting. En el evento Unload del Formualrio, es decir al descargar

Los parámetros tanto para GetSetting como para SaveSetting son:

AppName: Debemos indicar el nombre de la aplicación, en el ejemplo pasamos App.Exename
Section: Dato de tipo String para la sección a crear o leer
Key: Nombre de la clave a crear o leer
Setting: En SaveSetting es el Valor a guardar. En el caso de GetSetting este parámetro no existe, y tiene uno llamado Default que es de tipo opcional para asignar en caso de que no haya datos.

En el registro se verían los datos mas o menos asi:

vista previa del Editor del registro de windows con la sección , claves y valores

Donde MiProyecto es el parámetro AppName. Ancho es el parámetro Section. Luego Columna1, Columna2 y Columna3 son los Key o claves

Ejemplo

Agregar un control Listview llamado Listview1.
Luego ejecutar el formulario, cambiarle los ancho de columna. Cerrar el formulario para ver como se asignan los valores al volver a cargar el programa

Código fuente en un formulario:

Option Explicit Private Sub Cargar_De_Registro(ByVal ListView As ListView) Dim i As Integer 'Recorre las columnas del ListView For i = 1 To ListView.ColumnHeaders.Count 'Lee el valor del Registro y le asigna el Width a la columna ListView.ColumnHeaders(i).Width = GetSetting(App.EXEName, _ "Ancho", "Columna" & Format$(i), 1000) Next i End Sub Private Sub Grabar_en_registro(ByVal ListView As ListView) Dim i As Integer 'Recorre las columnas For i = 1 To ListView.ColumnHeaders.Count Call SaveSetting(App.EXEName, _ "Ancho", _ "Columna" & Format$(i), _ ListView.ColumnHeaders(i).Width) Next End Sub Private Sub Form_Load() Dim i As Integer Dim n_item As ListItem 'Agrega algunas columnas de ejemplo al Listview With ListView1 .View = lvwReport .ColumnHeaders.Add , , "Columna 1" .ColumnHeaders.Add , , "Columna 2" .ColumnHeaders.Add , , "Columna 3" End With 'Agrega algunos items y SubItems For i = 0 To 20 Set n_item = ListView1.ListItems.Add(, , "Item") n_item.SubItems(1) = "Sub Item: " & i n_item.SubItems(2) = "Sub Item: " & i Next 'Lee del registro los valores para asignar a los E de columna Call Cargar_De_Registro(ListView1) Me.Caption = "Ejemplo de SaveSetting y GetSetting " End Sub Private Sub Form_Unload(Cancel As Integer) ' Al descargar el Form Graba en el registro el ancho de las columnas Call Grabar_en_registro(ListView1) End Sub

Ejemplo 2

Este otro , es bien simple , lo que hace es al descargar el formulario, guardar en el registro con saveSetting los valores de todos los controles Textbox del formulario que estén en un arreglo de controles llamado Text1. Y al cargar el formulario lo contraro , es decir leer los valores que tenía cada TextBox con la función GetSetting.

Colocar algunos textbox en un arreglo, por ejemplo Text1(0), Text1(1), Text1(2) ..etc...

vista del formulario con el arreglo de controles textbox

Código en el formulario:

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

Recursos vb 6.0 - Relacionados

Buscar en Recursos vb