Selamat datang di blog belajar VB, seperti biasa kita akan bahas mengenai picture box tepatnya cara copy paste gambar. untuk langkah-langkahnya:
- Buka VB6 nya dan buat form.
- Masukan 2 Picture box dan 2 Command Button, seperti pada gambar dibawah ini:
- Simpan terlebih dahulu projectnya, kemudian siapkan 1 buah gambar dan letakkan dalam 1 folder bersama project tadi.
- Masukan Sintak berikut di Form Load:
Private Sub Form_Load()
Me.Picture1.Picture = LoadPicture(App.Path & "\image3.jpg")
End Sub
- dan masukan pula sintak berikut di command1 dan command2:
Private Sub Command1_Click()
Clipboard.SetData Me.Picture1.Picture
End Sub
Private Sub Command2_Click()
Me.Picture2.Picture = Clipboard.GetData()
End Sub
- Setelah itu jalankan dengan klik setData untuk copy dan klik GetData untuk mempastekan.
Sekian tutorialnya semoga bermanfaat.
0 comments:
Post a Comment