vb查找關鍵字（要求完整代碼）

Private Sub Command1_Click()

iPos = InStr(iPos + Len(Text1.Text), Text2.Text, Text1.Text, vbTextCompare)

If iPos > 0 Then

Text2.SelStart = iPos - 1

Text2.SelLength = Len(Text1.Text)

Text2.SetFocus

Else

iPos = 1

MsgBox "沒找到"

End If

End Sub

Private Sub Form_Load()

iPos = 1

End Sub

上一篇:安卓源碼qq

下一篇:采購系統源代碼采購