Mencoba dan Memahami Drag and Drop Dalam vb 6

Sebelum agan mencoba kode drag and drop di bawah ini, terlebih dahulu settinglah property objek Picture1 OLEDropMode = 1 - Manual dan Property AutoSize = True.

selanjutnya copas dan coba ndiri code di bawah ini :

Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo ErrHandler
Picture1.Picture = LoadPicture(Data.Files(1))
Exit Sub
ErrHandler:
MsgBox "Error gambar tidak bisa diload"
End Sub

Untuk melihat cara kerjanya, bukalah Windows Explorer atau mozzila, kemudian draglah satu file gambar yang terdapat pada Windows Explorer atau mozilla tersebut, selanjutnya drop tepat di atas object PictureBox.
lihat apa yang terjadi.

hal di atas belum di coba di google crome

untuk lebih jelasnya mungkin bisa mendownload file projectnya di sini:
http://www.mediafire.com/?9h3v​lvtn004lkl5

Posted in: Visual Basic