Saturday, November 1, 2008

Drag Picture File To Picture Box And Display The Picture


If you will drag the file mypic.gif from Windows to the picture box, the picture will be displayed within the picture box.

Preparations
Add 1 Picture Box to your form.
Set the Picture Box OLEDropMode Property to 1 - manual.

Form Code


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 Err
Picture1.Picture = LoadPicture(Data.Files(1))
Exit Sub
Err:
MsgBox "The Picture you dragged could not be loaded"
End Sub

No comments: