Selasa, 02 Agustus 2011

Cara Memformat Sebagian Text/Kalimat Pada RichTextBox VB6

Berikut ini adalah cara memformat sebagian kalimat/text/tulisan/sekumpulan karakter/kata di dalam  RichTextBox, mengubah warnanya, mengganti jenis huruf, an menebalkannya di visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 Project baru dengan 1 Form dan 1 RichTextBox.
2. Copy-kan coding berikut ke dalam editor form yang bertalian.

          Function FormatTulisan(strJudul As String)
          'Mohon mencantumkan nama saya di about aplikasi Anda
          'jika menggunakan fungsi ini. Terima kasih.
          'Fungsi oleh Masino Sinaga, 22 Juli 2002.

          Dim i As Integer
          Dim PosAwal() As Long, PosAkhir() As Long
          Dim PosIsiAwal() As Long, PosIsiAkhir() As Long
          Dim RecPerHal As Integer

            RecPerHal = 5
            ReDim PosAwal(RecPerHal)
            ReDim PosAkhir(RecPerHal)
            ReDim PosIsiAwal(RecPerHal)
            ReDim PosIsiAkhir(RecPerHal)

            PosAwal(RecPerHal) = InStr(1, rtf1.Text, strJudul)
            PosAkhir(RecPerHal) = InStr(PosAwal(RecPerHal), rtf1.Text, ":")
            PosIsiAwal(RecPerHal) = PosAkhir(RecPerHal) + 1
            PosIsiAkhir(RecPerHal) = InStr(PosIsiAwal(RecPerHal), _

                                     rtf1.Text, Chr(13))
            For i = 1 To RecPerHal
               DoEvents
               If PosAwal(RecPerHal) > 0 Then

                  With rtf1
                    PosAkhir(RecPerHal) = InStr(PosAwal(RecPerHal) + i, _
                                          rtf1, ":")
                    'Ini untuk data sebelum titik dua
                    .SelStart = (PosAwal(RecPerHal) - 1)

                    .SelLength = PosAkhir(RecPerHal) - PosAwal(RecPerHal)
                    .SelLength = Len(strJudul)
                    .SelFontName = "Verdana"
                    .SelFontSize = 8

                    .SelColor = vbBlue
                    .SelText = UCase(.SelText)
                    'Ini untuk data setelah titik dua
                    .SelStart = (PosIsiAwal(RecPerHal) - 1)

                    .SelLength = PosIsiAkhir(RecPerHal) - _
                                 PosIsiAwal(RecPerHal)
                    .SelFontName = "Arial"
                    .SelFontSize = 9
                    .SelBold = True

                  End With
               End If
               PosAwal(RecPerHal) = InStr(PosAwal(RecPerHal) + i, _
                                    rtf1.Text, strJudul)

               PosAkhir(RecPerHal) = InStr(PosAwal(RecPerHal) + i, _
                                     rtf1.Text, ":")
               PosIsiAwal(RecPerHal) = PosAkhir(RecPerHal) + 1
               PosIsiAkhir(RecPerHal) = InStr(PosIsiAwal(RecPerHal) + i, _
                                        rtf1.Text, Chr(13))
            Next i
          End Function

          Private Sub Form_Load()
            With rtf1
              .Width = 5000

              .Font.Name = "Courier New"
              .Font.Size = 9
              .RightMargin = .Width + 500
              .Text = "Nama: Masino Sinaga" & vbCrLf & _

                   "Alamat: Jalan Terusan Sari Asih 54" & vbCrLf & _
                   "Tempat Lahir: Jakarta" & vbCrLf & _
                   "Tanggal Lahir: 22 Januari 1973" & vbCrLf & _
                   "" & vbCrLf & _
                   "Nama: Elvis Presley" & vbCrLf & _

                   "Alamat: Graceland, Memphis, Tennessee" & vbCrLf & _
                   "Tempat Lahir: Tupello" & vbCrLf & _
                   "Tanggal Lahir: 8 Januari 1935" & vbCrLf & _
                   "" & vbCrLf & _

                   "Nama: Pat Boone" & vbCrLf & _
                   "Alamat: 1st Avenue Hollywood" & vbCrLf & _
                   "Tempat Lahir: New York" & vbCrLf & _
                   "Tanggal Lahir: 5 Desember 1940" & vbCrLf & _

                   ""
            End With
            Call FormatTulisan("Nama")
            Call FormatTulisan("Alamat")
            Call FormatTulisan("Tempat Lahir")

            Call FormatTulisan("Tanggal Lahir")

          End Sub

          Private Sub Form_Resize()
            rtf1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
          End Sub

Tags:
contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module

Ditulis Oleh : Wahyu Aji // 20.07
Kategori:

0 komentar:

Posting Komentar