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
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment