Memposisikan Teks (Metode Warpping)

Bisakah Anda mengkode PictureBox agar dapat menampilkan cetakan teks? Jika tidak bisa, mudah saja, kok! Cukup ketik kode berikut ini:

NamaPictureBox.Print "Teks yang akan dicetak"

Maka, pada sebuah PictureBox akan tercetak teks tersebut. Tetapi, bagaimana jika teks terlalu panjang, sementara lebar PictureBox tersebut terbatas (dimana kode di atas hanya dapat mencetak teks dalam satu baris, sehingga jika panjang teks melampaui lebar PictureBox maka teks tidak akan tercetak seluruhnya)?

Jawabnya adalah memposisikan teks menjadi beberapa baris.

Buatlah project baru, tambahkan kontrol PictureBox, dan kontrol Command Button. Lalu ketik kode di bawah ini:

Sub PosisisikanTeks(ctl As Object, Teks As String)

    Dim Posisi As Long
    Dim PosisiKosong As Long
    Dim Lebar As Single
    
    Lebar = ctl.ScaleWidth '<--- ubah nilai lebar sesuai kebutuhan
    
    'ctl.AutoRedraw = True
    
    'Set Posisi awal pencetakan
    ctl.ScaleLeft = -100
    ctl.ScaleTop = -100
    
    'Kosongkan
    ctl.Cls
    
    'Pengulangan sepanjang teks
    Do While Posisi  _
        Lebar + (2 * ctl.ScaleLeft) Then
            'Jika teks terlalu panjang, teks akan dipenggal
            'menurut posisi spasi yang ditemukan
            
            If PosisiKosong Then Posisi = PosisiKosong
            
            'Cetak penggalan teks
            ctl.Print Left$(Teks, Posisi - 1)
            
            'Set ulang variable-variabel.
            Teks = LTrim$(Mid$(Teks, Posisi))
            Posisi = 0
            PosisiKosong = 0
        End If
    Loop
    'Cetak semua teks
    If Len(Teks) Then ctl.Print Teks

    'Note: silakan ubah nilai variabel Lebar dengan suatu nilai Single
    'contoh: Lebar = 2000
End Sub

Private Sub Form_Load()
    Text1.Text =  "Orang yang bergolongan darah AB " & _
        "mempunyai perasaan yang sensitif, lembut. " & _
        "Mereka penuh perhatian dengan perasaan " & _
        "orang lain dan selalu menghadapi orang lain " & _
        "dengan kepedulian serta kehati-hatian. " & _
        " Disamping itu mereka keras dengan " & _
        " diri mereka sendiri juga dengan orang-orang " & _
        "yang dekat dengannya."
End Sub

Private Sub Form_Resize()
    On Error Resume Next
    Me.Picture1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub

PrivateSub Command1_Click()
    PosisisikanTeks Me.Picture1, Me.Text1.Text
    End doc
End Sub

Perihal Novian Agung
Pengangguran

One Response to Memposisikan Teks (Metode Warpping)

  1. Jimmy mengatakan:

    apakah efektif ? scriptnya boleh ane copy yah ,, buat alt pict atau credit di foto😀

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: