如何从Label控件移除特定字符串？VBA代码问题求助

你遇到的问题很明确：VB.NET 中的字符串类型并没有内置的 -= 运算符，所以你写的 lblError.Text -= err(courseNumber) 完全不会生效——这根本不是合法的字符串操作语法。

快速修复方案 #

如果只是想快速替换掉现有代码里的错误部分，可以用 String.Replace() 方法来移除目标错误字符串：

Sub errorOutput(toggleError As Boolean, courseNumber As Integer)
    Dim errMsg As String = $"please ensure that what you input in Course {courseNumber} is a number between 0 and 100"
    If toggleError = True Then
        lblError.Text += errMsg
    Else
        ' 把对应的错误消息替换为空字符串，实现移除效果
        lblError.Text = lblError.Text.Replace(errMsg, "")
    End If
End Sub

不过这个方案有个小问题：如果同一个错误消息被重复添加多次，Replace() 会一次性把所有匹配的内容都删掉，而不是只移除一次。如果你的业务逻辑允许重复添加错误，这个方法可能不符合预期。

更健壮的实现方式 #

更好的做法是维护一个当前错误的集合，通过添加/移除集合元素来精确控制错误消息，最后再把集合内容拼接成 Label 的文本。这种方式能避免重复错误、移除不彻底等问题：

首先在你的窗体类里声明一个类级别的列表来跟踪错误：

' 类级别的变量，用于存储当前需要显示的所有错误
Private currentActiveErrors As New List(Of String)()

然后修改你的 errorOutput 方法：

Sub errorOutput(toggleError As Boolean, courseNumber As Integer)
    ' 先拼接好当前课程的错误消息
    Dim courseErrMsg As String = $"please ensure that what you input in Course {courseNumber} is a number between 0 and 100"
    
    If toggleError Then
        ' 添加错误时先检查是否已存在，避免重复
        If Not currentActiveErrors.Contains(courseErrMsg) Then
            currentActiveErrors.Add(courseErrMsg)
        End If
    Else
        ' 移除对应的错误消息
        currentActiveErrors.Remove(courseErrMsg)
    End If
    
    ' 将所有错误消息用换行符拼接，显示在Label里（也可以用分号等分隔符）
    lblError.Text = String.Join(Environment.NewLine, currentActiveErrors)
End Sub

这种方式的优势很明显：

• 精确控制每个错误的添加/移除，不会出现重复错误
• 可以灵活调整错误消息的显示格式（比如每行一个错误，更易读）
• 避免了直接操作字符串可能带来的意外问题

内容的提问来源于stack exchange，提问作者Brian Naranjo