如何追加复选框状态的文本挂起？

Question

我正在制作一个复选框，如果检查目标文件附加了文本-A，并且如果未选中该文件附加文本-B

我该怎么做？

我有什么SOFAR：

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