lunes, 8 de septiembre de 2014

CBoolean y Settings

Otro ejemplo de Settings con Cboolean, la razón de porque hago muchos ejemplos con Settings es que a mi me costo enormidades entender el funcionamiento de este componente que es vital para cualquier programa, ya que sin el no podemos guardar configuraciones y datos importantes de funcionamiento de nuestra aplicación, y la info que hay por ahí es escasa.
Ojala que ustedes con esta info no pasen tantas dificultades como pase yo para poder comprender y usar Settings.




' gambas class file

'by postapase
Public Sub Form_Open()
Me.Center
CheckBox1.Value = Settings["Opciones/" & CheckBox1.Text, False]
CheckBox2.Value = Settings["Opciones/" & CheckBox2.Text, False]
CheckBox3.Value = Settings["Opciones/" & CheckBox3.Text, False]
End

Public Sub CheckBox1_Click()
Settings["Opciones/" & CheckBox1.Text] = CBoolean(CheckBox1.Value)
LeerArchivoDeConfiguracion()
End

Public Sub CheckBox2_Click()
Settings["Opciones/" & CheckBox2.Text] = CBoolean(CheckBox2.Value)
LeerArchivoDeConfiguracion()
End

Public Sub CheckBox3_Click()
Settings["Opciones/" & CheckBox3.Text] = CBoolean(CheckBox3.Value)
LeerArchivoDeConfiguracion()
End

Public Sub LeerArchivoDeConfiguracion()
Dim ArchivoX As File
Dim Linea As String
Dim Ruta As String

Settings.Save
TextArea1.Clear
Ruta = Settings.DefaultDir &/ Application.Name & ".conf"
ArchivoX = Open Ruta For Read

While Not Eof(ArchivoX)
Line Input #ArchivoX, Linea
TextArea1.Text &= Linea & gb.NewLine
Wend

Close ArchivoX

End


Código fuente: Cboolean-0.0.1.tar.gz

No hay comentarios.:

Publicar un comentario

Related Posts Plugin for WordPress, Blogger...

Facebook

www.gambas-es.org

www.gambas-es.org
Si quieres que tu curva de aprendizaje sea rápida, regístrate en este gran foro en español.