• Home
 · 
• Miscellaneous
 · 
• This is a search engine for the users at runtime and is very quick. It really works and is good for

This is a search engine for the users at runtime and is very quick. It really works and is good for

This is a search engine for the users at runtime and is very quick. It really works and is good for programs with a lot of text.

Rate This is a search engine for the users at runtime and is very quick. It really works and is good for

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

   Dim Search, Where   ' Declare variables.
   ' Get search string from user.
   Search = InputBox("Enter text to be found:")
   Where = InStr(Text1.Text, Search)   ' Find string in text.
   If Where Then   ' If found,
      Text1.SelStart = Where - 1   ' set selection start and
      Text1.SelLength = Len(Search)   ' set selection length.
   Else
      MsgBox "String not found."   ' Notify user.
   End If
End Sub

Private Sub Form_Load()
   Text1.Text = "This search works real quick."
End Sub