Страница: 1 |
Как осуществить перетаскивание файла на форму с последующим его открытием?
Private Sub Form_Load() Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Страница: 1 |
Вопрос: DragDrop
Добавлено: 17.08.03 11:10
Автор вопроса: Calhoon | Web-сайт:
Ответы
Всего ответов: 1
Номер ответа: 1
Автор ответа:
boevik
Хранитель чата
ICQ: 137392264
Вопросов: 8
Ответов: 557
Web-сайт:
Профиль | | #1
Добавлено: 17.08.03 11:30
Me.OLEDropMode = 1
End Sub
Debug.Print Data.Files(1)
End Sub
В Data.Files(1) получаешь имя файла который перетаскивают и с ним уже длаешь то что пожелаешь.