Cara Memasukan Teks Kedalam PictureBox Dengan Kode VB6

PictureBox selain bisa memasukan Image bisa juga memasukan teks dengan menggunakan metode Print sehingga teks yang kita input akan tercetak didalam PictureBox.

Berikut dibawah ini adalah screenshoot hasil dari Teks kedalam PictureBox dengan menggunakan Visual Basic 6.0

Untuk memasukan sebuah teks kedalam PictureBox berikut adalah langkah-langkahnya :

1. Tambahkan sebuah Form baru di VB6 Anda

2. Tambhkan sebuah kontrol PictureBox didalam Form

3. Tambahkan 2 CommandButton pada Form

4. Kemudian tambahkan kode pada Button berikut :

Private Sub Command1_Click() 'Button Input Teks

Dim textToPrint As String

    textToPrint = InputBox("Masukkan teks yang ingin dimasukkan:", "Tambah Teks")

    If Len(textToPrint) > 0 Then

        ' Memasukkan teks ke dalam PictureBox

        Picture1.CurrentX = 100 ' Koordinat X untuk teks

        Picture1.CurrentY = 100 ' Koordinat Y untuk teks

        Picture1.Print textToPrint

    End If

End Sub

Private Sub Command2_Click() 'Button Clear

Picture1.Cls

End Sub

Setelah itu coba jalankan project anda, setelah itu klik tombol Input Teks dan pengguna diperintahkan untuk memasukan teks dan klik OK maka teks akan tercetak didalam PicuterBox.

Demikian artikel sikat kali ini tentang Cara Memasukan Teks Kedalam PictureBox Dengan Kode VB6, semoga artikel ini bermanfaat bat kita semua,Amin.

Selamat mencoba semoga berhasil.

Related Post: PictureBox