Состояние флажка сохранено в текстовом файле vb.net

Question

Это мой код:

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    Dim checkboxvalue As String = File.ReadAllText(Application.StartupPath + "\discordstatus.txt")
    If checkboxvalue = "1" Then
        CheckBox1.Checked = True
    End If

    If checkboxvalue = "0" Then
        CheckBox1.Checked = False
    End If

    If CheckBox1.Checked = "1" Then
        Dim fileReader As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath + "\discordstatus.txt").Replace("0", "1")
        My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\discordstatus.txt", fileReader, False)
    End If

    If CheckBox1.Checked = "0" Then
        Dim fileReader As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath + "\discordstatus.txt").Replace("1", "0")
        My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\discordstatus.txt", fileReader, False)
    End If
End Sub

Я хочу, чтобы он (если не отмечено) помещал 0 в текстовый файл и (если отмечен) вставил 1 в текстовый файл, этот код позволяет мне контролироватьизменив номер в файле вручную, но я не могу поставить или снять флажок, помогите.

Answer 1

Вы можете сделать это автоматически.

1. Перейдите в вид дизайна и выберите свой флажок.
2. В окне свойств щелкните стрелку в настройках приложения.
3. Нажмите новый и установите значение по умолчанию и название настройки.

Значение флажка будет автоматически сохранено и установлено для вас. Нет кода.