在TextBox中查找和繼續查找

2019-11-18 17:51:14

字體：大中小

來源：轉載

供稿：網友

TextBox控件沒有象RichTextBox控件那樣集成有查找即Find功能，為此要在TextBox中查找和繼續查找字符串得花點兒心思。我們可以用VB的InStr函數來實現。
InStr函數提供了在一個字符串中查找另一個字符串的功能。我們可以把TextBox中的文本看作是一個字符串，這樣，查找就得以實現了。同時，InStr還允許設置查找的起始位置，繼續查找功能因而也不難解決。以下是詳細的代碼：

'首先，聲明窗體級變量：
DimSearchAsString'聲明要查找的變量

'查找代碼：
DimWhere1'獲取需要查找的字符串變量
Text1.SetFocus'文本框獲得焦點，以顯示所找到的內容Search=InputBox("請輸入要查找的字詞：")
Where1=InStr(Text1.Text,Search)'在文本中查找字符串
IfWhere1Then
'若找到則設置選定的起始位置并使找到的字符串高亮
Text1.SelStart=Where1-1
Text1.SelLength=Len(Search)
'Me.Caption=Where1'測試用
'否則給出提示
Else:MsgBox"未找到所要查找的字符串。",vbInformation,"提示"
EndIf

'繼續查找[注意：與“查找”有所不同]
dimWhere2
DimStartMeAsInteger'查找的起始位置變量
Text1.SetFocus'文本框獲得焦點
StartMe=Text1.SelLength Text1.SelStart 1'給變量賦值
where2=InStr(StartMe,Text1.Text,Search)'令其從上次找到的地方找起
'以下和“查找”的一樣了
Ifwhere2Then
Text1.SelStart=where2-1
Text1.SelLength=Len(Search)
Else:MsgBox"未找到所要查找的字符串。",vbInformation,"提示"
EndIf->

上一篇：如何由兩個ASC碼（區位碼）復原成一個漢字？

下一篇：翻轉一個字符串