Страница: 1 |
Private Sub Form_Load() Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Ух, ты! Как просто. Я думал там побольше текста будет. Спасибо большое. Страница: 1 |
Вопрос: drag'n'drop файлов
Добавлено: 01.04.03 23:28
Ответы
Всего ответов: 2
Номер ответа: 1
Автор ответа:
boevik
Хранитель чата
ICQ: 137392264
Вопросов: 8
Ответов: 557
Web-сайт:
Профиль | | #1
Добавлено: 02.04.03 08:07
Me.Text1.OLEDropMode = 1 'manual
End Sub
Text1.Text = Data.Files(1)
End Sub
Номер ответа: 2
Автор ответа:
Вопросов: 7
Ответов: 37
Web-сайт:
Профиль | | #2
Добавлено: 03.04.03 13:53