VB 5/6-Tipp 0264: Optionen in einer Text-Datei speichern

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "cmdAuslesen"
' Steuerelement: Schaltfläche "cmdSpeichern"
' Steuerelement: Kontrollkästchen-Steuerelement "chkTest" (Index von 0 bis 1)
' Steuerelement: Beschriftungsfeld "Label1"


'Autor: Markus Palme
'E-Mail: MarkusPalme@gmx.de

Option Explicit

Private Sub cmdAuslesen_Click()
   'Wenn Optionendatei nicht vorhanden ist, also nicht
   'geöffnet werden kann, weitermachen
   On Error Resume Next

   Dim DateiNr As Integer
   Dim Temp As String
   Dim i As Byte
   
      'Dateinr für Zugriff bestimmen
      DateiNr = FreeFile

      'Textdatei im Lesemodus öffnen
      Open App.Path & "\optionen.txt" For Input As DateiNr
      
         For i = 0 To 1
            'Werte der Checkboxen aus der Datei auslesen und im
            'String Temp speichern
            Line Input #DateiNr, Temp
            'Temp der Value-Eigenschaft der Checkboxen zuweisen
            chkTest(i).Value = Temp
         Next i
         'Datei schließen
      Close DateiNr
End Sub

Private Sub cmdSpeichern_Click()
   'Wenn Optionendatei nicht vorhanden ist, also nicht gelöscht
   'werden kann weitermachen
   On Error Resume Next

   Dim DateiNr As Integer
      'Dateinr für Zugriff bestimmen
      DateiNr = FreeFile

      'Textdatei im Schreibmodus öffnen
      Open App.Path & "\optionen.txt" For Output As DateiNr
      
         'Werte der Checkboxen in die Datei schreiben
         Print #DateiNr, chkTest(0).Value
         Print #DateiNr, chkTest(1).Value

      'Datei schließen
   Close DateiNr
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------