如何使文本框需要一定的character/symbol?

How to make a textbox require a certain character/symbol?

我正在 VB 中设置一个简单的程序,并且我有一个字段,用户必须在其中输入他们的电子邮件。我想这样做,所以程序需要文本框中的“@”符号。

我在想,最后当用户提交他们的信息时,如果没有'@',他们会收到一个消息框,说电子邮件无效。我可以在上面的代码中添加一个变量,以便程序检查它是否被包含了吗?

我之前包含了一些只允许使用数字的代码(在 phone 数字的文本框中),但我不知道是否可以将其用作参考。不确定这里是否需要它,但无论如何我都会包含它

' === code for validating numbers only ===
        If Char.IsDigit(e.KeyChar) = False And Char.IsControl(e.KeyChar) = False Then
            e.Handled = True
        End If 

我对 VB 还是很陌生。谢谢!

以下是完成此操作的 2 种方法。

If Not TextBox1.Text.Contains("@") Then
    MsgBox("No @ exists...")
End If

If InStr(1, TextBox1.Text, "@") = 0 Then
    MsgBox("No @ exists...")
End If