VBNet - Форум - немного запутался с драг энд дроп

Вопрос: немного запутался с драг энд дроп Добавлено: 23.05.07 08:07

Автор вопроса: Champion | Web-сайт: afhelp.in.ua | ICQ: 461506481

это нормально работает для одного файла

Private Sub MainList_OLEStartDrag(Index As Integer, data As MSComctlLib.DataObject, AllowedEffects As Long)
If Left(MainList(0).Tag, 4) = "move" Then MainList(0).Tag = mID$(MainList(0).Tag, 5): AllowedEffects = vbDropEffectMove Else AllowedEffects = vbDropEffectCopy
data.SetData , vbCFFiles
data.Files.Add MainList(0).Tag
End Sub

проблема в том, что когда пытаюсь заполнить data
несколькими файлами,

dim tmpvar() as string
tmpvar=split(MainList(0).Tag,vbcrlf)
for a= 0 to ubounds(tmpvar)
data.Files.Add tmpvar(a)
next

то в итоге ничего не получается

подскажите, что не так делаю?)
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: Docal ICQ: 408802757 Вопросов: 14 Ответов: 126	Web-сайт: Doc-source.pp.net.ua Профиль \| \| #1	Добавлено: 23.05.07 13:04
	От и мне интересно Ответить

Номер ответа: 2 Автор ответа: Docal ICQ: 408802757 Вопросов: 14 Ответов: 126	Web-сайт: Doc-source.pp.net.ua Профиль \| \| #2	Добавлено: 23.05.07 13:04
	От и мне интересно Ответить

Номер ответа: 3 Автор ответа: Champion ICQ: 461506481 Вопросов: 38 Ответов: 88	Web-сайт: afhelp.in.ua Профиль \| \| #3	Добавлено: 23.05.07 14:13
	наверное не так спросил) проблема в том, что если больше одного, то источник дропа распознаёт, что их несколько, но имена всех файлов, как у первого файла Ответить

Номер ответа: 4 Автор ответа: EUGY Вопросов: 0 Ответов: 454	Профиль \| \| #4	Добавлено: 24.05.07 02:40
	for a= 0 to [B]ubounds[/B]tmpvar) Option explicit ? и что содержится в MainList(0).Tag ? судя по этому: If Left(MainList([B]0[/B].Tag, 4) = "move" Then MainList([B]0[/B].Tag = mID$(MainList([B]0[/B].Tag, 5): явно не массив. Ответить

Номер ответа: 5 Автор ответа: Champion ICQ: 461506481 Вопросов: 38 Ответов: 88	Web-сайт: afhelp.in.ua Профиль \| \| #5	Добавлено: 24.05.07 06:33
	в MainList(0).Tag полные пути к файлам, разделённые vbcrlf H:\_to BURN\new\Неизвестные [Unknown] (1_24).avi H:\_to BURN\new\Испытание Акилы [Akeelah and the Bee] (1_53).avi F:\CARTOONS\Барби и волшебная радуга [Barbie. Fairytopia - Magic of the Rainbow] (1_14).avi H:\_to BURN\new\Мертвая девочка [The Dead Girl] (1_33).avi H:\_to BURN\new\Двойная фамилия (1_32).avi H:\_to BURN\new\Компаньоны [А Prairie Home Companion] (1_41).avi H:\_to BURN\new\Пропавший [Dead Lenny] (1_27).avi H:\_to BURN\new\Детская комната [The Baby's Room] (1_16).avi вот так к примеру Ответить

Номер ответа: 6 Автор ответа: Bonapart ICQ: 175256 Вопросов: 32 Ответов: 108	Web-сайт: team16.tut.su Профиль \| \| #6	Добавлено: 25.05.07 13:05
	нет в MainList(0).Tag находится H:\_to BURN\new\Неизвестные [Unknown] (1_24).avi а в MainList.Tag находятся все строки Ответить

Страница: 1 |