Перетаскивание файла в форму Access

NKill111
Дата: 24.11.2006 14:20:22
Всем привет!

Есть некоторая таблица, в которой хранятся ссылки на оригиналы электронных документов (писем, договоров и т.д.). Хочу упростить процедуру создания ссылки, чтобы пользователю не нужно было добавлять новую запись, нажимать конку выбора файла, искать файл и т.д., а можно было просто перетащить файл из проводника в форму.
Подскажите, можно ли такое реализовать в Access? Если можно, то как? Какие компонеты использовать, какие события? Спасибо заранее.
NKill
Дата: 24.11.2006 14:30:15
Добавлю также, что список файлов выводится на форме в ListView (ActiveX), у которого есть событие OLEDragDrop, но подходит ли оно для этих целей и как его использовать я не знаю.
Старый ворчун
Дата: 24.11.2006 15:28:06
Установили:
ListView0.OLEDropMode = vbOLEDropManual

и на событие OLEDragDrop:
Private Sub ListView0_OLEDragDrop(Data As Object, Effect As Long, _
        Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim i As Long
    If TypeName(Data) = "IVBDataObject" Then
        For i = 1 To Data.Files.Count
            Debug.Print Data.Files(i)
        Next
    End If
End Sub
Старый ворчун
Дата: 24.11.2006 15:45:57
некоторая корректировка :-)
        Const vbCFFiles = 15
        Dim i As Long

        If Data.GetFormat(vbCFFiles) Then
            For i = 1 To Data.Files.Count
                Debug.Print Data.Files(i)
            Next
        End If
NKill111
Дата: 24.11.2006 16:20:43
Работает! Спасибо!