Vb.net 从框中删除文本而不考虑位置

这就是我所拥有的，它所做的基本上就是当你选中一个框时，它会在一个文本框中添加“ZHH”，在另一个文本框中添加“Zucker Hillside Hospital”

我想能够做的是在属性未选中时搜索这些文本框，我希望它只删除这些添加内容，而不管它们在哪里

想象一下，我在各自的盒子里放了这个：

三十、 ZHH，XXX

在另一个盒子里

XXX医院，祖克山医院，XXX医院

我希望能够将ZHH和Zucker Hillside Hospital从各自的盒子中移除，无论它们在字符串中的哪个位置

事件处理程序将是未选中的函数，另一个“if”只需搜索文本即可删除并在其位置设置空字符串

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

---

可以使用函数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

因此，它将取代ZHH bu nothing的每个实例

---

请注意，它可能会擦除ZHHYTVF并留下YTVF。如果CBZUCK.Checked=True，则它可能不希望这样做。

subjectBox.Text=subjectBox.Text&“ZHH，”
FullName.Text=FullName.Text&“Zucker Hillside医院”
其他的
subjectBox.Text=subjectBox.Text.Replace（“ZHH，，”）
FullName.Text=FullName.Text.Replace（“Zucker Hillside Hospital，，”）
如果结束
末端接头

谢谢大家!

replace(myString,"ZHH","")