Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> FileListBox 
V
    Опции темы
max85
Дата 2.7.2007, 15:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 34
Регистрация: 29.6.2007

Репутация: нет
Всего: нет
Как мне из FileListBox нажатием на определенный файл открыть его?
PM MAIL   Вверх
DrBoom
Дата 2.7.2007, 15:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


QIP VB-SDK Developer
*


Профиль
Группа: Участник
Сообщений: 83
Регистрация: 19.2.2006

Репутация: нет
Всего: нет
Смотря, "что", "где" и "как" открыть ты хочешь)))

По подробнее можно, что ты хочешь, а то цель не совсем ясна... какой файл, открыть как и т.д.
PM MAIL ICQ Jabber   Вверх
max85
Дата 2.7.2007, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 34
Регистрация: 29.6.2007

Репутация: нет
Всего: нет
открыть mp3 файл для проигравания

Код

Private Declare Sub PlSound Lib "plsound.dll" (ByVal musik As String)
Dim FileMusik As String

'Кнопка ИГРАТЬ
Private Sub Command1_Click()
On Error GoTo err1
If FileMusik = "" Then mnuOpen_Click
PlSound FileMusikjavascript: void(0);
Размер
Exit Sub
err1:
MsgBox "Ошибка выбора файла", vbCritical
End Sub

'Кнопка открыть файл
Private Sub mnuOpen_Click()
On Error Resume Next
CommonDialog1.Filter = "Звук (*.mp3)|*.mp3"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
FileMusik = CommonDialog1.FileName
End Sub


а надо чтобы проиграть можно было нажатием на файл в списке FileListBox но не получается :(
как мне это можно осуществить? помогите кто может...

Это сообщение отредактировал(а) max85 - 2.7.2007, 17:39
PM MAIL   Вверх
DrBoom
Дата 2.7.2007, 17:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


QIP VB-SDK Developer
*


Профиль
Группа: Участник
Сообщений: 83
Регистрация: 19.2.2006

Репутация: нет
Всего: нет
Весьма возможно FileListBox в данном случае в параметре FileName возвращает относительный путь к файлу, который в вашем коде предаеётся в виде параметра процедуры PlSound, а "plsound.dll" находится в ином каталоге, чем файл mp3, соответственно выдаёт ошибку... попорбуйте переписать код, так чтоб получать полный адрес к файлам mp3...  smile 
PM MAIL ICQ Jabber   Вверх
Akina
Дата 2.7.2007, 21:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Как я понимаю, нужно заменить CommonDialog на FileListBox с сохрагнением функции воспроизведения выбранного файла?
Код

Private Sub FileListBox_Click()
PlSound FileListBox.List(FileListBox.ListIndex)
End Sub
Следует помнить, что к именам файлов следует добавиьт и путь к ним...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
max85
Дата 3.7.2007, 09:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 34
Регистрация: 29.6.2007

Репутация: нет
Всего: нет
Записываю так:
Код

Private Sub File1_Click()
FileMusik = Drive1.Drive + "\" + Dir1.Path + "\" + File1.List(File1.ListIndex)
PlSound FileMusik
End Sub

что не так?
не получается
PLsound "C:\Path\file.mp3" проигрывается
PM MAIL   Вверх
cardinal
Дата 3.7.2007, 10:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
А если сравнить значения
Код

FileListBox.List(FileListBox.ListIndex)

и
Код

Drive1.Drive + "\" + Dir1.Path + "\" + File1.List(File1.ListIndex)



--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
max85
Дата 3.7.2007, 12:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 34
Регистрация: 29.6.2007

Репутация: нет
Всего: нет
Вобщем разобрался с темой smile
все как всегда гениально и просто smile

Код

Private Sub File1_Click()
FileName = Dir1.Path + "\" + File1.FileName
PlSound FileName
End Sub


Спасибо всем!

Это сообщение отредактировал(а) max85 - 3.7.2007, 13:39
PM MAIL   Вверх
max85
Дата 3.7.2007, 13:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 34
Регистрация: 29.6.2007

Репутация: нет
Всего: нет
хм... но появилась новая проблемма :-(
не пойму как сделать так, чтобы по нажатию на другой файл в списке FileListBox предыдущий останавливался, а нажатый запустился? :-(

Это сообщение отредактировал(а) max85 - 3.7.2007, 13:56
PM MAIL   Вверх
Akina
Дата 3.7.2007, 14:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(max85 @  3.7.2007,  14:56 Найти цитируемый пост)
 как сделать так, чтобы по нажатию на другой файл в списке FileListBox предыдущий останавливался, а нажатый запустился? 

Это вопросы к использованной тобой либе PlSound.dll - кури маны.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
max85
Дата 3.7.2007, 14:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 34
Регистрация: 29.6.2007

Репутация: нет
Всего: нет
Хорошо, тогда поставлю вопрос по-другому smile
Как мне задать запрос программе ввиде:

Если выбирается файл с индесом i+1, где i это индекс файла текущего, то i-файл StSound(стоп музыка) иначе PlSound(играть)?
не правильный алгоритм?

Это сообщение отредактировал(а) max85 - 3.7.2007, 16:24
PM MAIL   Вверх
Akina
Дата 3.7.2007, 16:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(max85 @  3.7.2007,  15:48 Найти цитируемый пост)
Если выбирается файл с индесом i+1, где i это индекс файла текущего, то i-файл StSound(стоп музыка) иначе PlSound(играть)?

Запоминай номер последнего выбранного файла, какие проблемы? и сравнивай... а как остановить воспроизведение текущего файла - ищи в документации к использованному модулю. Вот она.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
max85
Дата 4.7.2007, 09:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 34
Регистрация: 29.6.2007

Репутация: нет
Всего: нет
Да, Akina, спасибо!
сегодня весь вечер продолбился с этой штукой. ничего. и номер тоже запоминал )
видимо библиотека не способна на такое smile

а вообще у кого-нибудь есть какой-либо опыт по воспроизведению mp3 в VB 6.0?
может кто поделиться!?
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0580 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.