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

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