如何在复选框状态上附加待处理的文本？

Question

我正在创建一个带有复选框的表单，如果选中，则目标文件附加了文本-A，如果未选中，则文件附加文本-B

我该怎么做？

我有什么安慰：

    Private Sub CheckBox1_Checked(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.Checked
    Dim FILE_NAME As String = "C:\ANSWERSLIST.txt"

    'Adding items for AutoCAD 2006...
    If System.IO.File.Exists(FILE_NAME) = True Then
        Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)
        objWriter.WriteLine("YES")
        objWriter.Close()
    End If
End Sub

Answer 1

您可以使用AppendAllText方法：

If MyCheckBox.IsChecked Then
    File.AppendAllText("foo.txt", "text-A")
Else
    File.AppendAllText("foo.txt", "text-B")
End If