Membut Effect Text Dengan PictureBox VB6

Berikut ini adalah contoh menampilkan teks dengan efek "bolong" di form Anda dengan bantuan PictureBox di visual basic 6, untuk mempraktekannya siapkan :

2. Copy-kan coding berikut ke editor form & module yang bertalian.

          '--- Coding ini di Module...
          Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
          Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long

          Declare Function StrokePath Lib "gdi32" (ByVal hdc As Long) As Long
          '--- Akhir coding di Module...

          '--- Coding ini di Form...

          Private Sub Form_Load()
          'Ganti "Masino Sinaga" dengan teks yang ingin Anda tampilkan
              Const TXT = "Masino Sinaga"
              Dim i As Long
              Dim hRgn As Long

              Picture1.AutoRedraw = True

              'Pilih huruf. Sesuaikan dengan keinginan Anda...
              Picture1.Font.Name = "Times New Roman"

              Picture1.Font.Bold = True
              Picture1.Font.Size = 50

              'Buat ukuran Picture1 cukup besar

              Picture1.Width = Picture1.TextWidth(TXT)
              Picture1.Height = Picture1.TextHeight(TXT)

              'Untuk letak Picture1
              BeginPath Picture1.hdc

              Picture1.CurrentX = 0
              Picture1.CurrentY = 0
              Picture1.Print TXT
              EndPath Picture1.hdc

              'Gambar teks...
              StrokePath Picture1.hdc
          End Sub

          '--- Akhir coding di Form..

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