Автор Тема: Нужна ваша помощь  (Прочитано 2620 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн keym

  • Коллежский регистратор
  • *
  • Сообщений: 1
  • Репутация: 0
Нужна ваша помощь
« : °ЯаХЫм 14, 2009, 12:07:39 pm »
Господа, программисты, помогите пожалуйста..Проблема такая:
Необходимо при перетаскивании файла в форму, сохранять адрес этого файла в какой-нить переменной. Как сделать не представляю, оч надеюсь на вашу помощь..

Оффлайн pashulka

  • Титулярный советник
  • ****
  • Сообщений: 135
  • Репутация: 7
Re: Нужна ваша помощь
« Ответ #1 : °ЯаХЫм 14, 2009, 11:45:05 pm »
Private iObjectFiles As DataObjectFiles

Private Sub Form_Load()
    Me.OLEDropMode = 1 'Изменить это свойство можно и вручную
End Sub

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Data.GetFormat(vbCFFiles) = True Then Set iObjectFiles = Data.Files
End Sub

Private Sub Command1_Click()
    If Not iObjectFiles Is Nothing Then
       For Each iFile In iObjectFiles
           MsgBox iFile, , ""
       Next
    Else
       MsgBox "Пока ничего нет", , ""
    End If
End Sub

И не забывайте, что перетащить можно и несколько файлов сразу.