Question

请问VB6.0怎么判断 text1.text 筐中的字包含得有text2.text筐中的字！就弹出警告！

请问VB6.0怎么判断 text1.text 筐中的字包含得有text2.text筐中的字！就弹出警告！
比如：text1.text="VB爱好者乐园"
text2.text="乐园" 或者 text2.text="爱好" 就弹出警告！
请大哥大姐们帮忙看下！非常感谢！

Answer 1

Private Sub Text2_Change()
Dim A As String
Dim B As String
A = Text1.Text
B = Text2.Text
If InStr(1, A, B) <> 0 Then
MsgBox "有游丛此神迅郑没包含"
End If
Text2.SetFocus
End Sub

Answer 2

楼上是正确的
instr(变量,"判断的字符") <> 0