Cara Membuat Highlight Text di Java

Sebelum memulai terlebih dahulu siapkan 4 object yang terdiri dari :

1. Textbox 2 buah (beri nama text1 & text2)
2. Richtextbox 1 buah (beri nama richtextbox1)
3. 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