Visual Basic - guardar valor checkbox

Life is soft - evento anual de software empresarial
 
Vista:

guardar valor checkbox

Publicado por santi (3 intervenciones) el 29/09/2006 09:56:15
Hola, se que para muchos la pregunta sera muy simple ,pero no se por donde empezar, tengo un formulario con 20 checkbox y quiero que al salir del programa y volver a entrar estos tengan el ultimo estado que el usuario los dejo, no puede ser con una base de datos.


Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:guardar valor checkbox

Publicado por Andrés Barcia (4 intervenciones) el 29/09/2006 16:54:34
hola, podrías grabar el estado de los check en un archivo .xml

antes que nada, tenés que agregar la referencia "Microsoft XML, Version 2.0" a tu proyecto

crea un archivo .txt en tu directorio del proyecto con el nombre "Config.txt"
escribe lo siguiente en ese archivo
<config>
<ValorCheck1>0</ValorCheck1>
<ValorCheck2>2</ValorCheck2>
<ValorCheck3>1</ValorCheck3>
</config>

ahora renombra el archivo a "Config.xml"

crea un modulo de clase que contenga lo siguiente

'----------------------modulo de clase
Option Explicit
Private Const NOMBRE_ARCHIVO_CONFIG = "Config.xml"

Public Function LeerParametro(strParametroNombre As String)
Dim objDom As New MSXML.DOMDocument
Dim strNombreArchivoConfig As String
Dim strXPath As String
Dim strValorParametro As String
Dim objNodoConnString As MSXML.IXMLDOMNode
strNombreArchivoConfig = App.Path & "\" & NOMBRE_ARCHIVO_CONFIG
objDom.async = False
If objDom.Load(strNombreArchivoConfig) Then
strXPath = "//" & strParametroNombre
Set objNodoConnString = objDom.selectSingleNode(strXPath)
strValorParametro = objNodoConnString.Text
End If
LeerParametro = strValorParametro
End Function

Public Function GrabarParametro(strParametroNombre As String, strValorParametro As String)
Dim objDom As New MSXML.DOMDocument
Dim strNombreArchivoConfig As String
Dim strXPath As String
Dim objNodoConnString As MSXML.IXMLDOMNode
strNombreArchivoConfig = App.Path & "\" & NOMBRE_ARCHIVO_CONFIG
objDom.async = False
If objDom.Load(strNombreArchivoConfig) Then
strXPath = "//" & strParametroNombre
Set objNodoConnString = objDom.selectSingleNode(strXPath)
objNodoConnString.Text = strValorParametro
objDom.Save (strNombreArchivoConfig)
End If
End Function
'---------------fin modulo de clase

suponemos ahora que al modulo de clase le pones el nombre claseConfig

escribi el siguiente codigo, por ejemplo en un boton grabar para grabarle un valor
a una de las etiquetas del archivo config, en este caso a ValorCheck2

dim objConfig as new claseConfig
objConfig.GrabarParametro "ValorCheck2", 1
'estarias grabando el valor 1 en esa etiqueta
'podes poner cualquier cosa, por ejemplo esto seria valido

objConfig.GrabarParametro "ValorCheck1", "Probando el xml del colo"

'para leer el valor sería
objConfig.LeerParametro ("ValorCheck2")

Espero que te sirva! este código lo resumí de un código que encontré
en la web del programador.
no recuerdo el nombre del autor original

Saludos, Andrés
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar