With Standard Textboxes I can Drop Files like this:
Code: Select all
Private Sub txtFile_OLEDragDrop(data As DataObject, effect As Long, button As Integer, shift As Integer, x As Single, y As Single)
MsgBox data.Files.item(1)
End Sub
Is this also possible with your Controls? I didn't manage it.
Code: Select all
Private Sub txtFileU_OLEDragDrop(ByVal data As EditCtlsLibUCtl.IOLEDataObject, effect As EditCtlsLibUCtl.OLEDropEffectConstants, ByVal button As Integer, ByVal shift As Integer, ByVal x As Single, ByVal y As Single)
MsgBox data. ... ???
End Sub