| Вопрос: Помогите плиз искал не нашол! | Добавлено: 18.03.08 00:07 |
Автор вопроса:  Beshan
|
|
Помогите плизз уже 3-й день ищю не могу найти.
Надо узнать путь перетаскиваемого на форму файл. Когдато у меня был исходник но я его профукал.Может у кого есть??Или ктото знает как? Зарание блогодарен! |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #1 | Добавлено: 18.03.08 00:38 |
|
Private Sub Form_Load()
Me.AutoRedraw = True Me.OLEDropMode = 1 Me.Caption = "Перетащи на меня файлы." End Sub Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) For i = 1 To Data.Files.Count Me.Print Data.Files(i) Next End Sub |
||
|
Номер ответа: 2 Автор ответа: Beshan Вопросов: 2 Ответов: 3 |
Профиль | | #2 | Добавлено: 18.03.08 17:30 |
| Спасибо Огромное ряльно помог. | ||
Страница: 1 |