VB脚本中TextBox.Contains报错：‘Contains’非TextBox成员的求助

你编译报错的原因很直接：messagetext是TextBox控件对象，它本身并没有Contains方法——只有字符串类型才支持这个方法。你需要访问控件的Text属性（也就是文本框里的实际输入内容）来调用Contains。

修正后的完整代码如下：

Sub CheckTelegram()
    ' 检查是否包含Telegram
    If messagetext.Text.Contains("telegram") Then
        messagetext.BorderColor = Drawing.Color.Red
        ' 此处可添加阻止消息发送的逻辑，比如终止提交流程
    Else
        ' 正常状态下恢复默认边框色（示例）
        messagetext.BorderColor = Drawing.Color.LightGray
    End If
End Sub

额外补充两点：

• 如果需要不区分大小写检测（比如匹配TeleGram、TELEGRAM这类变体），可以改用IndexOf方法：messagetext.Text.IndexOf("telegram", StringComparison.OrdinalIgnoreCase) >= 0
• 你原代码里的Else块没有配套的End If，这也会导致编译失败，上面的代码已经补全了语法结构。

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