根据复选框选择填充文本框并防止重复

Question

我有以下代码来根据按钮单击上的复选框选择填充文本框。

 If ChkOM.Checked Then
    txtOpp.Text += ChkOM.Text & Environment.NewLine
Else
    txtOpp.Text = ""
End If
If ChkHSM.Checked Then
    txtOpp.Text += ChkHSM.Text & Environment.NewLine
Else
    txtOpp.Text = ""
End If

此代码可以在一定程度上发挥作用，但是当我取消选中并稍后重新选中该框时，它将用两倍的相同文本填充文本框。我该如何防止这些双打？

Answer 1

尝试添加这个 IF 语句，并将新变量声明为 STATIC。

If ChkOM.Checked Then
    If lasttext1 = chkOM.text Then
    Else
        lasttext1 = chkOM.text
        txtOpp.Text += ChkOM.Text & Environment.NewLine
    End if
Else
    txtOpp.Text = ""
End If

对第二个文本框也重复此操作。 （最后文本2）