Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0265: Optionen in einer Random-Datei speichern

VB 5/6-Tipp 0265: Optionen in einer Random-Datei speichern

 von Markus Palme

Schwierigkeitsgrad:

Verwendete API-Aufrufe: keine

Download: Download des Beispielprojektes [2,6 KB]

'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 "cmdReset"
' Steuerelement: Schaltfläche "cmdSpeichern"
' Steuerelement: Horizontale Scrollbar "scrZahl"
' Steuerelement: Kontrollkästchen-Steuerelement "chkRichtig"
' Steuerelement: Textfeld "txtText"
' Steuerelement: Beschriftungsfeld "lblZahl"
' Steuerelement: Beschriftungsfeld "Label1"


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

Option Explicit

' Definierung eines Variablentypes
' zb. String mit länge von 10 Buchstaben
Private Type typOptionen
    textstring As String * 10
    richtig As Byte
    zahl As Integer
End Type

' Eine Variable definieren in der die Optionen gespeichert
' werden
Private optionen As typOptionen

' Dateinummer zum Öffnen der Datei
Private Dateinummer As Integer

Private Sub cmdAuslesen_Click()
    ' Wenn Datei nicht vorhanden ist weitermachen
    On Error Resume Next

    ' Freie Dateinummer ermitteln
    Dateinummer = FreeFile

    ' Optionendatei öffen,
    Open App.Path & "\options.dat" For Random As Dateinummer
        ' Inhalt in die Variable optionen einlesen
        Get #Dateinummer, , optionen
    Close

    ' Inhalt der Optionsdatei den Steuerelementen zuweisen
    ' Vorsicht bei Texten! Nicht vorhandene Zeichen werden als
    ' Leerzeichen gespeichert,deshalb immer Trim() oder ähnliche
    ' Funktion verwenden und Länge des Strings im Typ möglischst
    ' kurz angeben (oben, Deklarationsteil)
    txtText.Text = Trim(optionen.textstring)
    
    chkRichtig.Value = optionen.richtig
    scrZahl.Value = optionen.zahl
End Sub

Private Sub cmdReset_Click()
    ' Alle Elemente wieder zurücksetzen
    chkRichtig.Value = vbUnchecked
    txtText.Text = ""
    scrZahl = 0
End Sub

Private Sub cmdSpeichern_Click()
    ' Bei Fehler weitermachen
    On Error Resume Next

    ' Werte der Steuerelemente der Variablen optionen zuweisen
    With optionen
        .textstring = txtText.Text
        .richtig = chkRichtig.Value
        .zahl = scrZahl.Value
    End With
    
    ' Freie DateiNr ermitteln
    Dateinummer = FreeFile

    ' Optionendatei öffnen und die Variable optionen reinschreiben
    Open App.Path & "\options.dat" For Random As Dateinummer
        Put #Dateinummer, , optionen
    Close
End Sub

Private Sub scrZahl_Change()
  ' Wert auf dem Label anzeigen
  lblZahl.Caption = scrZahl.Value
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------