Drag Drop Image/gambar ke dalam Form, Atau mengeser gambar ke dalam Form.
Langsung aja pada langkah :
1. Buka VB6 kamu dan pilih Standard EXE.
2. Beri Image pada Form.
3. Ubah Properties Image pada :
BorderStyle = 1 - Fixed Single ,OLEDropMode = 1 - Manual, Stretch = True
( strech : supaya gambar bisa menyesuaikan pada kotak image)
4. Klik View Code, dan masukan Script di bawah ini :
Langsung aja pada langkah :
1. Buka VB6 kamu dan pilih Standard EXE.
2. Beri Image pada Form.
3. Ubah Properties Image pada :
BorderStyle = 1 - Fixed Single ,OLEDropMode = 1 - Manual, Stretch = True
( strech : supaya gambar bisa menyesuaikan pada kotak image)
4. Klik View Code, dan masukan Script di bawah ini :
Option Explicit
'Drag and Drop Image
Private Sub Image1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
If LCase(Right$(Data.Files(1), 4)) <> ".jpg" Then Exit Sub
Image1.Picture = LoadPicture(Data.Files(1))
End Sub
'Drag and Drop Image
Private Sub Image1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
If LCase(Right$(Data.Files(1), 4)) <> ".jpg" Then Exit Sub
Image1.Picture = LoadPicture(Data.Files(1))
End Sub
5. Lalu RUN aplikasi dan Sobat coba sendiri..,semoga bermanfaat
Sumber : CAP info tech
0 komentar:
Posting Komentar
Setelah melihat - lihat, Alangkah baiknya memberikan komentar mengenai Blog ini.
Kritik dan Saran teman-teman semua, Saya anggap sebagai masukan buat saya... terima kasih telah berkunjung