Ошибка после компиляции

[Super Blaster]

У меня проблема. Я написал музыкальный плейер. В процессе отладки ошибок не было выявлено. Т.е. я жал кнопку "run" и всё нормально работало. Ну вот, откомпилировал софтину, запускаю значит, а тут хлоп, появляется ошибка "run-time error '381': invalid property array index" . Я думаю, чё за фигня? Решил опять запустить отладку. Опять ни одной ошибки. Я запустил отладку с компиляцией. И опять ни одной ошибки. Ну думаю, может я чего-нибудь криво сделал. Решил снова скомпилировать. И опять появляется ошибка. Почему так происходит? И главное как это исправить?

[gaidar]

Исходник или exe'шник в студию!

[Yurich]

Подобное замечал с VB5.

[Super Blaster]

Вот exe'шник, если нужен исходник, то позднее пришлю.

[Cyrax]

ишь какой маладэц!
исполняемый файл положил, а компоненты к няму где?
нету...

[Super Blaster]

Так ведь exe'шник просили, а не компоненты.......

[Cyrax]

Так ведь exe'шник просили, а не компоненты.......

да, просили исполняемый файл. а ты не подумал о том, что контролов, которые ты использовал в своей программе, может не быть у тех кто его скачает этот exe'шник. а без них оно не хочет работать

[Super Blaster]

Ну дык чё там? Найдена причина? Может ещё исходник прислать?

[Cyrax]

Ну дык чё там? Найдена причина? Может ещё исходник прислать?

тВ*(?%()_*(?_(*:
сырцы, блин, давай сюда...

[Super Blaster]

Вот исходник...Был исходник, а теперь тю-тю...

[Cyrax]

е*()?:)*?;*)?%_(*:_*(:_ь

для начала... я бы порекомендовал расставить во всех модулях твоего проекта в самом начале перед всеми декларациями Option Explicit
а что бы в дальнейшем не делать этого ручками, сходи в Tools -> Options и отметь там галку "Require Variable Declarations"

сразу обнаружишь кучу необьявленых переменных. я вообще не понимаю, как он у тебя под IDE запускался...

[Super Blaster]

Модули писал не я, они шли вместе с библиотекой. Поэтому они у меня не объявлены... Моя логика проста: работает всё правильно и ладно. Хотя потом посмотрю. Спасибо за помощь и советы, но я уже нашел ошибку (она в функции filep()). При добавлении файлов неправильно определялось кол-во их и последнего файла не существовало, а программа пыталась определить его длину.

[Cyrax]

Модули писал не я, они шли вместе с библиотекой. Поэтому они у меня не объявлены... Моя логика проста: работает всё правильно и ладно. Хотя потом посмотрю. Спасибо за помощь и советы, но я уже нашел ошибку (она в функции filep()). При добавлении файлов неправильно определялось кол-во их и последнего файла не существовало, а программа пыталась определить его длину.

эть... шоп тебе... а про те модули, которые с библиотекой шли, и не коворил... они, к стати, грамотно написаны... я имел ввиду твои модули, как программные (.bas), так и модули форм...
если бы ты с самого начала определил все переменные с указанием типа каждой переменной, проблем было бы гораздо меньше. а те, которые были бы, решились бы еще на стадии отладки в IDE

[Super Blaster]

Буду иметь ввиду....у меня просто всё горело, программа должна была быть написана в течение 2-х недель. Это подарок. Да, кстати, не подскажешь как с помощью drag-n-drop добавлять файлы в плейлист. Т.е. я знаю как пользоваться drag в пределах формы(т.е. перетаскивать элементы по форме), а как добавить путь к внешнему файлу в плейлист с помощью драга не знаю(хочу, чтоб было как в винампе)

[tyomitch]

Юзай событие _OLEDragDrop

[ANDLL]

Вот исходник...Был исходник, а теперь тю-тю...

Свинство... БК

[Super Blaster]

Вот исходник...Был исходник, а теперь тю-тю...

Свинство... БК

2ANDLL: А чё ваще? Исходник тебе нужен что ль?

[ANDLL]

Исходни не нужен.
Но не принято так. Какой смысл выставлять исходник, а потом через час его убирать? Боишься, что украдут? - так это бессмысленно.
И еще - не красиво редактировать посты, уже после того, как кто-то на него ответил. Создаеться впечатление...
И наконец, если ты хочешь что бы тебе помогли то я вообще ничего не понимать...

[tyomitch]

Сорри, от меня личка не уходит

Я уже пробовал, но результат нулевой. Я вот чё думал:

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
list1.additem ?' Тут то чё нужно написать?
End Sub
[/b]

Код: Выделить всё

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
List1.AddItem Data.Files(1)
End Sub


List1.OLEDropMode выставь в 1 (Manual)

[Super Blaster]

Во-первых, я выставлял исходник для конкретного человека, а не для всех. В этом исходнике содержалась информация личного характера, т.к. программа создавалась как подарок для любимого человека. Я вообще не хотел его выставлять, но уж очень нужно было. Во-вторых, исходя и вышеописанной причины я бы не хотел чтоб исходник попал в широкие массы и воспользовался возможностью. Лично у меня никаких впечатлений не создалось... В-третьих, мне уже не нужно помогать, т.к. проблема решена. Так что извиняй, но я не считаю себя неправым.