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