Cara Mengatur Format Text di PictureBox–VB

Thursday, October 9, 2014

Setelah kita membahas cara mencetak teks pada picture box, sekarang kita akan membahas mengenai cara mengatur format teks pada picturebox. Untuk Langkah-langkahnya:

- Buka VB6 dan buat form.

- Masukan sebuah picturebox.

- Kemudian masukan sintak berikutdi form load:

Private Sub Form_Load()
    Me.Picture1.ScaleMode = vbPixels
    Me.Picture1.CurrentX = 25
    Me.Picture1.CurrentY = 20
    Me.Picture1.Print ("Text in A Picture Box!")
    Me.Picture1.CurrentX = 25
     Me.Picture1.CurrentY = Me.Picture1.CurrentY + Me.Picture1.TextHeight("ABCDEFG")
    Me.Picture1.FontUnderline = True
    Me.Picture1.Print ("Underline Text.")
    Me.Picture1.CurrentX = 25
     Me.Picture1.CurrentY = Me.Picture1.CurrentY + Me.Picture1.TextHeight("ABCDEFG")
    Me.Picture1.FontBold = True
    Me.Picture1.Print ("Bold Underline Text.")
End Sub

- Kemudian jalankan form nya maka akan tercetak format text seperti Bold, Underline dan Italic

image

Sekian tutorialnya, Selamat mencoba & semoga bermanfaat.

0 comments:

Post a Comment