[VB6] Drag & Drop con Esplora Risorse

[giustavalla]

Risolto !

'.OLEDragMode = 1 - Automatic ' = vbOLEDragAutomatic
'.OLEDropMode = 1 - Manually ' = vbOLEDropManual
Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
AllOLEDragDrop Data
End Sub


Private Sub AllOLEDragDrop(Data As DataObject)
If Data.GetFormat(vbCFFiles) Then
Dim FileName
FileName = Data.Files(1)
MsgBox FileName
Picture1.Picture = LoadPicture(FileName)
End If
End Sub