| Вопрос: TextBox | Добавлено: 11.04.04 09:39 |
Автор вопроса:  Vit | Web-сайт: www.home-soft.jino-net.ru
|
|
Есть TextBox, MultiLine=True... Короче, надо, чтобы при перетаскивании файла на него (файл находится вне формы), этот файл открывался. Какое нужно событие поставить? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 11.04.04 14:30 |
|
Text1.OLEDropMode=1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) res = "" For i = 1 To Data.Files.Count res = res & Data.Files(i) & vbCrLf Next Text1 = res End Sub |
||
Страница: 1 |