添加「下一步」按鈕來搜索表格

Question

我已經寫了一個基本的搜索表單，它搜索文本框的文本，並突出顯示搜索項的第一個實例，如果找到，到目前爲止我有這一點的代碼，但想以某種方式實現一個「下一步」按鈕的形式，當點擊將轉到下一個實例，再次點擊，然後轉到下一個等任何人都可以幫助我？

Dim Search As String 
     Dim Find As String 
     Search = TextBox1.Text 
     Find = InStr(Form1.TextBox1.Text, Search) 
     If Find Then 
      Form1.TextBox1.Focus() 
      Form1.TextBox1.SelectionStart = Find - 1 
      Form1.TextBox1.SelectionLength = Len(Search) 
     Else 
      MsgBox("Can't find the text:" & Environment.NewLine & Search) 
     End If 

Answer 1

的InStr函數有一個參數，它可以讓您從一個特定的索引搜索。在這種情況下，它將是找到的單詞索引加上單詞本身的長度。

Find = InStr(Find + Len(Search), Form1.TextBox1.Text, Search) 

在這種情況下，我們從位置Find + Len(Search)開始。未經測試，但我認爲這應該做你想做的事。

可能是過早的優化，但您可以存儲搜索詞的長度，因此無需在每次按下Next按鈕時計算它。