Конференция VBStreets

**Mongoose** » 30.05.2004 (Вс) 13:09

Мне нужно сделать нечто вроде проводника. Можно ли сделать, чтобы при перетаскивании pictureboxа с формы проводник принимал его как файл?

**GSerg** » 30.05.2004 (Вс) 14:03

Нет.
А какое свойство пикчербокса сошло бы в качестве "файла"?

**Mongoose** » 30.05.2004 (Вс) 14:39

Ну например borderstyle :wink:

**Mongoose** » 30.05.2004 (Вс) 14:41

А если серьёзно, можно ли такое вообще как-нибудь сделать? (Перетаскивание чего-то в проводник так, чтобы проводник получил файл)

**Tarik** » 30.05.2004 (Вс) 20:57

GSerg писал(а):Нет.
А какое свойство пикчербокса сошло бы в качестве "файла"?

Да хотя бы tag... :roll:

**GSerg** » 31.05.2004 (Пн) 9:46

Попробуй ловить oledragstart и в dataobject пытаться делать setdata в формате vbcffiles. Не знаю, что получится, правда...

**Mongoose** » 31.05.2004 (Пн) 11:42

Точняк, как же я не догадался сразу попробовать тем более что там есть метод add...
Огромное спасибо.
О результатах сообщу после опытов.

**Mongoose** » 31.05.2004 (Пн) 12:25

К сожалению опыты не увенчались успехом. Между формами программы всё работает, в проводник не передаёт. Может кто-то всётаки знает как это сделать (Через VB или Win API)?

**Alexanbar** » 31.05.2004 (Пн) 21:09

В событии OleStartDrag добавить пути к файлам в объект DATa:

'p$ путь к файлу

Data.Files.add p$

В событии OleDragDrop
извлечь пути исходных файлов и провести собственно копирование:

For i=1 to Data.Files.Count

p$=Data.Files(i)

'копируем этот файл туда, куда нужно
next i

Конференция VBStreets

DragDrop

DragDrop

Кто сейчас на конференции