如何使文本框需要一定的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
我正在 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