| Вопрос: ListBox: перетаскивание файлов на список | Добавлено: 02.08.06 23:01 |
Автор вопроса:  MYSTERIOR | Web-сайт: XXX | ICQ: 227369659 |
|
Я знаю что ворос возможно уже набил оскомину, но все же если нетрудно хотя бы пример дайте, пжлст...
Собственно, сабж. Требуется сделать так чтобы при перетаскивании файла на ListBox он добавлялся в список, причем должна быть возможность перетаскивания нескольких файлов враз. Заранее спасибо. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | Цитата | #1 | Добавлено: 03.08.06 01:04 |
|
Private Sub Form_Load()
List1.OLEDropMode = 1 End Sub Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Dim I As Integer For I = 1 To Data.Files.Count Call List1.AddItem(Data.Files(I)) Next End Sub Private Sub List1_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) If (Data.Files.Count > 0) Then Effect = vbDropEffectCopy Else: Effect = vbDropEffectNone End If End Sub |
||
|
Номер ответа: 2 Автор ответа: MYSTERIORICQ: 227369659 Вопросов: 31 Ответов: 96 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 03.08.06 10:24 |
|
Sacred Phoenix, спасибо большое.
сам же когда то делал очень давно, а потом забросил VB на несколько лет - а вот сейчас опять вспомнил 
|
||
|
Номер ответа: 3 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | Цитата | #3 | Добавлено: 03.08.06 20:34 |
| 2 MYSTERIOR: не за что. | ||
Страница: 1 |