Question

Private Sub CBFRANK_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBFRANK.CheckedChanged
    If CBFRANK.Checked = True Then
        existsub = subjectBox.Text
        rollingsub = existsub + "FR, "
        existfull = FullName.Text
        rollingfull = existfull + "Franklin Hospital, "
        subjectBox.Text = rollingsub
        FullName.Text = rollingfull
    Else
        Replace(FullName.Text, "Franklin Hospital, ", "")
    End If
End Sub

这就是我所拥有的，它的作用基本上就是当你选中一个方框，它将“ZHH”添加到一个文本框和“Zucker Hillside Hospital”时，另一个。

我希望能够做的是在取消选中属性时搜索这些文本框，我希望它只是删除那些添加内容，无论它们在哪里

想象一下，我在各自的方框中都有这个：

XXX，ZHH，XXX

在另一个方框中

XXX医院，Zucker Hillside医院，XXX医院

我希望能够从他们各自的盒子中移除ZHH和Zucker Hillside医院，无论他们在哪里？

事件处理程序是未经检查的函数，另一个是“if”

Answer 1

只需使用String.Replace搜索要删除的文本并在其位置设置空字符串

Private Sub CBZUCK_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBZUCK.CheckedChanged
    If CBZUCK.Checked = True Then
        subjectBox.Text = subjectBox.Text & "ZHH, "
        FullName.Text = FullName.Text & "Zucker Hillside Hospital, "
    Else
        subjectBox.Text = subjectBox.Text.Replace("ZHH, ", "")
        FullName.Text = FullName.Text.Replace("Zucker Hillside Hospital, ", "")
    End If
End Sub

Answer 2

您可以使用Replace（）函数，就像这样

replace(myString,"ZHH","")

所以它取代了ZHH的所有实例。

请注意它可以删除ZHHYTVF并离开YTVF。它可能不希望这样。

Answer 3

If CBZUCK.Checked = True Then subjectBox.Text = subjectBox.Text & "ZHH, " FullName.Text = FullName.Text & "Zucker Hillside Hospital, " Else subjectBox.Text = subjectBox.Text.Replace("ZHH, ", "") FullName.Text = FullName.Text.Replace("Zucker Hillside Hospital, ", "") End If End Sub

谢谢！

无论位置如何，都可以从框中删除文本

3 个答案: