VB如何寻找TEXT1.text中的一个内容

来源：百度知道 编辑：UC知道 时间：2024/09/28 09:58:01
寻找TEXT1.text中指定文本
如果TEXT1.text中有 "欢迎" 则提示登陆成功 else 登陆失败

代码该怎么写
TEXT1.TEXT 里面有许多其他的 东西

Private Sub Command1_Click()
a = InStr(1, Text1.Text, "欢迎")
If Val(a) > 0 Then
MsgBox "登录成功"
Else
MsgBox "登录失败"
End If
End Sub

if InStr(Text1.Text, "欢迎") then
MsgBox "登录成功"
else
MsgBox "登录失败"
End If

if TEXT1.text="欢迎" then
print "登陆成功"
else
print "登陆失败"