|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
06.04.2013, 10:22 | #1 |
Регистрация: 06.04.2013
Сообщений: 8
|
Как в MediaPlayer проиграть случайный трек после окончания предыдущего
Хочу, чтобы по окончании трека MediaPlayer автоматически начал проигрывать следующий, со случайным номером, который выставляется в ячейке. Попытка использовать следующий код:
Код:
Попробовал подебажить - после команды WindowsMediaPlayer1.URL = Worksheets("Playlist").Cells(sn, 3) трек начинает проигрываться и эта процедура вызывается ещё 3 раза: с кодами 9, 10 и снова 9 и после выхода из последней трек останавливается. В общем, я уже голову сломал - не понимаю, почему так и как это исправить. Помогите, люди добрые ))) |
06.04.2013, 11:25 | #2 |
Форумчанин
Регистрация: 24.12.2012
Сообщений: 776
|
Mmo, в каком модуле у вас находится событие Private Sub WindowsMediaPlayer1_PlayStateChange (ByVal NewState As Long).
Есть следующие виды модулей в "VBA":
|
06.04.2013, 13:12 | #3 |
Регистрация: 06.04.2013
Сообщений: 8
|
Скрипт, Модуль листа, на котором находится объект MediaPlayer. Я так понимаю, это к 4 пункту относится.
|
06.04.2013, 13:15 | #4 |
Форумчанин
Регистрация: 24.12.2012
Сообщений: 776
|
Mmo, а в Tools - References... вы какую библиотеку подключили для работы с "Media Player"?
|
06.04.2013, 14:50 | #5 |
Регистрация: 06.04.2013
Сообщений: 8
|
Скрипт, а есть какие-то варианты? wmp.dll вроде как.
|
06.04.2013, 14:58 | #6 |
Форумчанин
Регистрация: 24.12.2012
Сообщений: 776
|
Mmo, у меня здесь: Tools - References... 4 библиотеки, связанные с "Windows Media Player":
|
06.04.2013, 23:21 | #7 |
Регистрация: 06.04.2013
Сообщений: 8
|
Скрипт, ну собсно у меня wmp.dll подключена. Я уже ответил.
|
07.04.2013, 07:31 | #8 |
Форумчанин
Регистрация: 24.12.2012
Сообщений: 776
|
Mmo, у вас на Excel-листе находится "WMP"?
|
07.04.2013, 11:42 | #9 |
Регистрация: 06.04.2013
Сообщений: 8
|
Скрипт, да
|
08.04.2013, 03:05 | #10 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Допросы закончены?
Нашел пока такой выход. По другому после старта останавливается. Код:
Анализ,обработка данных Недорого
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как вернуть имя предыдущего месяца? | valerij | Microsoft Office Excel | 7 | 14.03.2013 12:21 |
как не ждать окончания процедуры(функции)? | Кольша | Общие вопросы Delphi | 14 | 02.02.2012 16:49 |
Bass.dll событие после окончания воспроизведения. | ZBEP | Мультимедиа в Delphi | 4 | 30.01.2011 04:06 |
Кем я могу работать после окончания учебы помимо как прогрммистом | Kobe | Помощь студентам | 7 | 13.09.2010 03:44 |
Как узнать какой трек сейчас играет.. | NBSTUDIO | Мультимедиа в Delphi | 2 | 01.10.2009 22:11 |