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
Sekian tutorialnya, Selamat mencoba & semoga bermanfaat.
0 comments:
Post a Comment