Cara Menambahkan Teks di Picture Box – VB6

Selamat datang diblog belajar VB kali ini saya akan membahas mengenai cara menambahkan Teks pada Picture Box, tanpa banyak basa basi langsung saja langkah-langkah berikut ini:

- Buka VB6 nya dan buat sebuah form.

- Tambahkan 1 PictureBox, 1 TextBox dan 1 CommandButton seperti gambar dibawah ini.

- Setelah selesai dengan desain formnya, sekarang kita masukan Codingnya:

Private Sub Command1_Click()
If Me.Text1.Text = "" Then
    MsgBox "Text tidak boleh kosong!", vbOKOnly + vbCritical, "Perhatian"
Else
    Me.Picture1.ScaleMode = vbPixels
    Me.Picture1.CurrentX = 25
    Me.Picture1.CurrentY = 20
    Me.Picture1.Print Me.Text1.Text
    Me.Text1.Text = ""
    Me.Text1.SetFocus
End If
End Sub

Private Sub Form_Activate()
    Me.Text1.SetFocus
End Sub

- Setelah itu kita jalankan.

- Kemudian masukan text yang anda inginkan, lalu klik Button-nya. Maka otomatis text akan tercetak pada picture box.

Sekian tutorialnya, perlu diingat artikel ini hanya berisi tutorial dasarnya saja, untuk kedepannya kita bisa mengeambangakan sendiri sesuai dengan keinginan kita. Terima Kasih Semoga Bermanfaat.