取消选中复选框时如何删除消息框中的记录？答案

【问题标题】：How to delete record in message box when I uncheck checkbox?取消选中复选框时如何删除消息框中的记录？
【发布时间】：2014-06-26 01:45:55
【问题描述】：

我真的是编程新手。我有这个来源的问题。当我取消选中复选框时，它必须被删除。但它还在里面。有什么解决办法吗？抱歉英语不好。 :D

Public Class Form1
Dim message As String
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    If CheckBox1.CheckState = 1 Then
        message = message & CheckBox1.Text & vbNewLine
    End If
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
    If CheckBox2.CheckState = 1 Then
        message = message & CheckBox2.Text & vbNewLine
    End If
End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
    If CheckBox3.CheckState = 1 Then
        message = message & CheckBox3.Text & vbNewLine
    End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MsgBox(message)
End Sub

【问题讨论】：

“”复选框？您显示 3。message 始终有条件地附加到，因此保留以前的选择。与其在 CheckChanged 中构建它，不如在 ButtonClick 中构建它，这样您就知道用户已经完成并且状态是“最终的”
'取消选中复选框时必须删除'是什么意思？您的意思是必须清除消息字符串吗？您的意思是必须删除未选中的复选框吗？

标签： .net vb.net checkbox messagebox

【解决方案1】：

您不需要那些 CheckedChanged 事件，因为您正在尝试创建一串已检查项。只需在需要时使用 StringBuilder 为您构建字符串：

Private Sub Button1_Click(sender As Object, e As EventArgs) _
                         Handles Button1.Click
  Dim message As New StringBuilder
  If CheckBox1.Checked Then
    message.AppendLine(CheckBox1.Text)
  End If
  If CheckBox2.Checked Then
    message.AppendLine(CheckBox2.Text)
  End If
  If CheckBox3.Checked Then
    message.AppendLine(CheckBox3.Text)
  End If
  MessageBox.Show(message.ToString)
End Sub

【讨论】：

你可以只做 MsgBox(message)
@nfell2009 不，你不能。我把它做成了一个 StringBuilder。
抱歉没有注意到 xD 部分