Question

VB text控件的内容判断

在工程中 只能判断十位以内的字符串（含字符加字母文字混合） 有两个text控件 那么两个控件中含有若干数据 如何知道text2中包含于text1中的数据 例如： text2 字符是werewr123yiuhasdiu 那么text1中是123 那么就是说text2 包含于 text1

Answer 1

首先在text2的属性窗口将属性hideselection设为false，不然即使找到也不会显示出来。看看我写的代码：Private Sub Command1_Click()
Dim x As Integer
x = InStr(Text2.Text, Text1.Text)
If x > 0 Then
Text2.SelStart = x - 1
Text2.SelLength = Len(Text1.Text)
End If
If x = 0 Then MsgBox "未在text2中找到text1中的内容"
End SubPrivate Sub Form_Load()
Text1.Text = "123"
Text2.Text = "werewr123yiuhasdiu"
End Sub
希望对你有所帮助！！！不明白的地方或者觉得哪有错误可以指出来。。。

Answer 2

可以用函数InStr(string1,string2)进行判断
返回字符串string2在字符串string1中第一次出现的位置。
没有的话，返回0