Cara Membuat Highlight Text Mengunakan VB6

Sebelum memulai terlebih dahulu siapkan 4 object yang terdiri dari :

Textbox 2 buah (beri nama text1 & text2)
Richtextbox 1 buah (beri nama richtextbox1)
Command Button 1 buah (beri nama command1)

Setelah kita selesai membuat 4 object diatas maka copy paste syntax dibawah ini kedalam script di form.

Kemudian Run, masukkan karakter atau kata yang akan dicari di text1 kemudian klik tombol
Jika karakter atau kata yang Anda cari jika bernilai true (data ditemukan) maka bagian richtextbox yang mana mengandung karakter atau kata yang Anda cari itu akan otomatis ter highlight ter bold dan ter garisbawahi.
Begitu juga dengan textbox nya secara otomatis akan terseleksi.

Demikianlah mudah-mudahan bermanfaat.

Option Explicit
 
Private Sub Command1_Click()
     RichTextBox1.SelStart = 0
     RichTextBox1.SelLength = Len(RichTextBox1.Text)
     RichTextBox1.SelColor = vbBlack
     RichTextBox1.SelBold = False
     RichTextBox1.SelUnderline = False
     HighlightWords RichTextBox1, Text1, vbRed
      
     Dim Where As String
     Where = InStr(Text2.Text, Text1)
     If Where Then
          Text2.SetFocus
          Text2.SelStart = Where - 1
          Text2.SelLength = Len(Text1)
     Else
          MsgBox "String not found."
     End If
End Sub
 
Private Function HighlightWords(rtb As RichTextBox, _
                            sFindString As String, _
                            lColor As Long) _
                            As Integer
 
     Dim lFoundPos As Long
     Dim lFindLength As Long
     Dim lOriginalSelStart As Long
     Dim lOriginalSelLength As Long
     Dim iMatchCount As Integer
      
     lOriginalSelStart = rtb.SelStart
     lOriginalSelLength = rtb.SelLength
      
     lFindLength = Len(sFindString)
      
     lFoundPos = rtb.Find(sFindString, 0, , rtfNoHighlight)
     While lFoundPos > 0
          iMatchCount = iMatchCount + 1
           
          rtb.SelStart = lFoundPos
          rtb.SelLength = lFindLength
          rtb.SelColor = lColor
          rtb.SelBold = True
          rtb.SelUnderline = True
           
          lFoundPos = rtb.Find(sFindString, _
          lFoundPos + lFindLength, , rtfNoHighlight)
     Wend
      
     rtb.SelStart = lOriginalSelStart
     rtb.SelLength = lOriginalSelLength
      
     HighlightWords = iMatchCount
 
End Function
 
Private Sub Form_Load()
     RichTextBox1.Text = "Hello:" & vbNewLine
     RichTextBox1.Text = RichTextBox1.Text & "What you are asking, can be done" & vbNewLine
     RichTextBox1.Text = RichTextBox1.Text & "but it requires a few things." & vbNewLine
      
     Text2.Text = "Hello:" & vbNewLine
     Text2.Text = RichTextBox1.Text & "What you are asking, can be done" & vbNewLine
     Text2.Text = RichTextBox1.Text & "but it requires a few things." & vbNewLine
End Sub