RE:guardar valor checkbox
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