Checkbox Haken speichern

  • VB6

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von Pascal.

    Checkbox Haken speichern

    Hallo,

    ich hab mal wieder ne Frage. Ich möchte gerne das Häkchen in einer Checkbox speichern. So das es bei einem Windows Neustart und bei einem Programm Neustart noch da ist.

    Ist so etwas möglich? Wenn ja wie?

    Danke schonmal im voraus!

    Wenn es nur um ein Häkchen geht dann würde ich einfach den Wert in eine Datei speichern. Also Aktiv oder Inaktiv und das beim Programmstart einlesen und jenachdem was es ist das Häkchen dann setzen.

    Wenn es darum geht mehrere Informationen zu speichern dann leg ich mir meistens eine XML Datei an in die ich die Informationen übertrage und dann einlese.

    Hoffe konnte dir einen Anhaltspunkt geben.

    Greetz Günni


    PS: oder wenn die Einstellungen beim Start immer dieselbe ist dann einfach in den Einstellungen auf Checked setzen wie Nikolai oben schreibt.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Günni“ ()

    VBnator, versuchs so:

    Beim Beenden:

    Visual Basic-Quellcode

    1. Sub speichern()
    2. Set fs = CreateObject("Scripting.FileSystemObject")
    3. Set a = fs.CreateTextFile("settings.txt", True)
    4. If Checkbox1.Checked = False
    5. a.WriteLine("Checked = 0")
    6. Else
    7. a.WriteLine("Checked = 1")
    8. End If
    9. a.Close
    10. End Sub


    Und beim Öffnen des Programm:

    Visual Basic-Quellcode

    1. Sub pruef()
    2. Dim place as String
    3. Open Pfad for Input as #1
    4. place = Line Input #1
    5. Close #1
    6. If place.Split(" ")(2) = "0" Then
    7. Checkbox1.Checked = False
    8. Else
    9. Checkbox1.Checked = True
    10. End Sub


    <Ohne Gewähr, nicht getestet>

    Das mit der Checkbox hat sich erledigt. Aber ich möchte noch wissen wie ich den Inhalt aus einer TextBox so speichern kann das er beim nächsten Start wieder in der TextBox ist. Am besten wäre Registrierungsdatenbank. Geht aber auch als andere Dateien.

    (aso sorry das ist für vb 2005)
    beim beenden:

    Visual Basic-Quellcode

    1. If System.IO.File.Exists("C:\Infos.txt") Then
    2. FileOpen(1, "C:\Infos.txt", OpenMode.Append)
    3. Print(1, " ", TAB(1))
    4. Print(1, TextBox1.Text, TAB(1))
    6. FileClose(1)
    7. Else
    8. MsgBox("C:\Infos.txt kann nicht gefunden werden!", MsgBoxStyle.Critical)
    9. End If


    und das bei starten:

    Visual Basic-Quellcode

    1. Dim reader As New IO.StreamReader("C:\Infos.txt")
    2. Do Until reader.ReadLine = ""
    3. TextBox1.Text = reader.ReadLine
    4. Loop
    5. reader.Close()

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „gogogigo“ ()

    Visual Basic-Quellcode

    1. If System.IO.File.Exists("C:\Infos.txt") Then
    2. Dim f as integer = FreeFile()
    3. FileOpen(f, "C:\Infos.txt", OpenMode.Append)
    4. Print(f, " ", TAB(1))
    5. Print(f, TextBox1.Text, TAB(1))
    7. FileClose(f)
    8. Else
    9. MsgBox("C:\Infos.txt kann nicht gefunden werden!", MsgBoxStyle.Critical)
    10. End If


    Was TAB(1) macht weiss ich nicht...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „bsHobbit“ ()

    Visual Basic-Quellcode

    1. Sub Bla()
    2. TextboxTextSpeichern "C:\test.txt", TextBox1
    3. If Not TextboxTextLaden("C:\test.txt", TextBox1) Then
    4. MsgBox "C:\test.txt konnte nicht geöffnet werden."
    5. End If
    6. End Sub
    8. Sub TextboxTextSpeichern(ByVal szDateiName As String, _
    9. ByRef txtTextBox As TextBox)
    10. Dim iKanal As Integer
    12. iKanal = FreeFile
    13. Open szDateiName For Output As #iKanal
    14. Print #iKanal, txtTextBox.Text;
    15. Close #iKanal
    16. End Sub
    18. Function TextboxTextLaden(ByVal szDateiName As String, _
    19. ByRef txtTextBox As TextBox) As Boolean
    20. Dim iKanal As Integer
    21. Dim szPuffer As String
    23. If Dir$(szDateiName) = vbNullString Then Exit Function
    25. iKanal = FreeFile
    26. Open szDateiName For Binary As #iKanal
    27. szPuffer = String$(LOF(iKanal), " ")
    28. Get #iKanal, , szPuffer
    29. Close #iKanal
    31. txtTextBox.Text = szPuffer
    32. TextboxTextLaden = True
    33. End Function

Facebook
Telefonspende