vb怎么判断text1内是否有123456这串字符

Question

如果text1内有123456这串字符的话就弹出窗口提示“有”如果没有就提示“没有”

Answer 1

在VB6.0和VB.NET中，都可以用InStr函数判断字符串b是否包含于字符串a中。方法是：
TextBox1.Text = "123456jdjfdkfjdjfjee"
Dim b As String
b = "123456"
If InStr(TextBox1.Text, b) > 0 Then
MsgBox("TextBox1中包含 " & b)
Else
MsgBox("TextBox1中不包含 " & b)
End If
在VB.NET中，还可以用IndexOf方法来判断。方法是
If TextBox1.Text.IndexOf("123456") >= 0 Then
MsgBox("TextBox1中包含 " & b)
Else
MsgBox("TextBox1中不包含 " & b)
End If
这里要注意：
IndexOf 方法报告子字符串第一个匹配项的第一个字符的位置。该索引是从 0 开始的，这意味着字符串第一个字符的索引为 0。
如果 IndexOf 没有找到该子字符串，则返回 -1。
InStr函数和IndexOf 方法都区分大小写，并使用当前区域性。

Answer 2

Private Sub Command1_Click()
If InStr(1, Text1.Text, "123456") > 0 Then
MsgBox "有"
Else
MsgBox "无"
End If
End Sub本回答被提问者采纳