Cara Membuat Highlight Text Mengunakan VB6 - Apabila Anda sedang mencari informasi terkait dengan Cara Membuat Highlight Text Mengunakan VB6, maka anda ada di website yang benar, yaitu Aneka source code aplikasi, Rekomendasi kami untuk Cara Membuat Highlight Text Mengunakan VB6 berikut mungkin adalah cocok dengan yang anda butuhkan saat ini.

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.

[php]
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
[/php]

Terima kasih telah membaca tentang Cara Membuat Highlight Text Mengunakan VB6

Aneka Source Code Aplikasi - Cara Membuat Highlight Text Mengunakan VB6, Semoga bisa membantu anda dalam belajar pemrograman atau mungkin dapat juga menjadi ide atau inspirasi untuk membuat karya baru yang lebih baik lagi.

Anda sedang membaca Cara Membuat Highlight Text Mengunakan VB6 artikel tentang aneka source code aplikasi https://anekasourcecode.blogspot.com/2016/01/cara-membuat-highlight-text-mengunakan.html Semoga blog sederhana ini dapat membantu dan bermanfaat bagi anda.

Tweet