Сообщество Чайников

Вопрос

Нужно что бы можно было перетащить файлы из проводника Windows в мою программу. Как можно это сделать?

Ответ

Вот, реализовано для FlexGrid.
Нужно два события обрабатывать и включить свойство у контрола, которая называется как-то типа OleDrop что-ли (точно не помню), она одна там такая, найдешь, если захочешь

Private Sub Grid1_OLEDragDrop(Data As MSFlexGridLib.DataObject, Effect As Long, _
Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim resultOle As String
If Data.GetFormat(vbCFFiles) Then
  resultOle = Data.Files(1)
'дальше делай с именем файла чего надо
End If
End Sub

Private Sub Grid1_OLEDragOver(Data As MSFlexGridLib.DataObject, Effect As Long, _
Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
If Data.GetFormat(vbCFFiles) Then
Effect = vbDropEffectCopy And Effect
Else
Effect = vbDropEffectNone
End If
End Sub

Алексей Вишневский