这是我的代码:
Imports System.Text.RegularExpressions
Dim botgreetings
botgreetings = {"Hey!", "Hello there!"}
If greetings.IsMatch(TextBox1.Text) Then
RichTextBox1.AppendText("Bot: " & botgreetings)
RichTextBox1.AppendText(Environment.NewLine)
End If
我收到了消息:
未处理的类型' System.InvalidCastException'发生在Microsoft.VisualBasic.dll
其他信息:运营商'&'未定义为字符串" Bot:" 并输入' String()'。
我只是想让它像:
如果我在文本框中写了一些东西,然后点击按钮"发送",我想要" bot"回答几个问候,而不是一个问候。它没有用! d: