Home » Label/Text » Memformat Teks Tertentu Saja Dalam Sebuah TextBox dengan VB6

Memformat Teks Tertentu Saja Dalam Sebuah TextBox dengan VB6

Kategori

Artikel kali ini saya akan berbagi sebuah kode yang berfungsi untuk memeformat teks tertentu saja dalam sebuah textbox melalui sebuah kode.

Misalnya saya akan memformat beberapa teks yang ada dalam kotak RichTextBox dengan format cetak tebal, cetak miring, cetak warna dan merubah FontSize.

Berikut dibawah ini adalah gambar hasil dari Format teks tertentu :

Output Format Teks

Berikut langkah-langkah untuk memformat teks tertentu dalam RichTextBox di VB6:

1. Tambahkan RichTextBox ke Form

  • Buka VB6, dan buat project baru.
  • Tambahkan kontrol RichTextBox ke form.
  • Jika RichTextBox tidak ada di toolbox, Anda bisa menambahkannya dengan:
  • Klik kanan di Toolbox > Components > cari dan centang Microsoft Rich TextBox Control 6.0 (SP6).

2. Pengkodean

Private Sub Form_Load()

    ' Tambahkan teks ke RichTextBox
    RichTextBox1.Text = "Ini adalah contoh teks. Beberapa teks akan dicetak tebal, beberapa dicetak miring dan warna dengan ukuran size besar."

    ' Menemukan dan memformat teks "contoh" menjadi tebal
    RichTextBox1.Find "contoh", 0, , rtfWholeWord
    RichTextBox1.SelBold = True

    ' Menemukan dan memformat teks "tebal" menjadi tebal
    RichTextBox1.Find "tebal", 0, , rtfWholeWord
    RichTextBox1.SelBold = True

    ' Menemukan dan memformat teks "miring" menjadi miring
    RichTextBox1.Find "miring", 0, , rtfWholeWord
    RichTextBox1.SelItalic = True
    
     ' Menemukan dan memformat teks "warna merah"
    RichTextBox1.Find "warna", 0, , rtfWholeWord
    RichTextBox1.SelColor = vbRed
    
    
    ' Menemukan dan memformat teks "besar" menjadi ukuran size 24
    RichTextBox1.Find "besar", 0, , rtfWholeWord
    RichTextBox1.SelFontSize = 24
     
End Sub


Penjelasan Kode

  • RichTextBox1.Text: Digunakan untuk menetapkan teks awal ke RichTextBox.
  • Find: Digunakan untuk menemukan kata atau frasa tertentu dalam teks.
  • SelBold: Menyetel teks yang dipilih menjadi tebal (True untuk mengaktifkan, False untuk menonaktifkan).
  • SelItalic: Menyetel teks yang dipilih menjadi miring.

3. Menjalankan Program

Ketika Anda menjalankan program, RichTextBox akan menampilkan teks dengan bagian yang diformat sebagai berikut:

  • Kata "contoh" dan "tebal" akan dicetak tebal.
  • Kata "miring" akan dicetak miring.

Catatan:

  • Anda bisa menambahkan format lain seperti underline dengan properti SelUnderline.
  • Untuk memformat lebih banyak bagian, cukup gunakan Find untuk mencari teks lain, dan terapkan SelBold, SelItalic, atau SelUnderline sesuai kebutuhan.


No comments:

Post a Comment