| Вопрос: Перенос файла на форму | Добавлено: 14.06.06 06:15 |
Автор вопроса:  DaaGER | Web-сайт: smartic.ru | ICQ: 329195567 |
|
Здрасьте! Мне нужна ваша помощь! У меня на форме есть текстовое поле, а форма ПОВЕРХ ВСЕХ. Надо, чтобы пользователь мог перенести файл из папки на это текстовое поле и в нём (в поле) появляется полный путь файла типа D:\f\Мои документы\5.mp3
Заранее спасибо всем! Особенно тем, кто окажет реальную помощь! |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #1 | Добавлено: 14.06.06 11:11 |
|
А в чем тут, собсно, проблема то?
Кидаешь на форму TextBox, ставишь свойство MultiLine в True, затем код типа такого Option Explicit Private Sub Form_Load() Text1.Text = "" Text1.OLEDragMode = 1 Text1.OLEDropMode = 1 End Sub Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next Dim i As Long For i = 1 To Data.Files.Count Text1.Text = Text1.Text & Data.Files(i) & vbCrLf Next i End Sub |
||
Страница: 1 |