Страница: 1 |
Я в своих программах использую элемент WindowsMedia для проигрывания MP3, WAVE, MIDI и т.д... На форме есть лист бокс и windowsmedia Как определить конец первой песни из листбокса и автоматически переключиться на вторую?
Используй End Of Stream Далее, в зависимости от того, что у тебя в лист-боксе, обрабатываешь lstПесня_Click()... Я так думаю! Если есть свои особенности, пиши... Используй End Of Stream Далее, в зависимости от того, что у тебя в лист-боксе, обрабатываешь lstПесня_Click()... Я так думаю! Если есть свои особенности, пиши... Страница: 1 |
Вопрос: Проигрывание MP3
Добавлено: 12.09.02 22:47
Автор вопроса: Mister U | Web-сайт:
Ответы
Всего ответов: 2
Номер ответа: 1
Автор ответа:
Satrapp
ICQ: 75556561
Вопросов: 8
Ответов: 80
Профиль | | #1
Добавлено: 13.09.02 01:30
Private Sub MediaPlayer1_EndOfStream(ByVal Result As Long)
If lstПесня.ListIndex = lstПесня.ListCount - 1 Then
lstПесня.ListIndex = 0
Else
lstПесня.ListIndex = lstПесня.ListIndex + 1
End If
Call lstПесня_Click
End Sub
Номер ответа: 2
Автор ответа:
Satrapp
ICQ: 75556561
Вопросов: 8
Ответов: 80
Профиль | | #2
Добавлено: 13.09.02 01:31
Private Sub MediaPlayer1_EndOfStream(ByVal Result As Long)
If lstПесня.ListIndex = lstПесня.ListCount - 1 Then
lstПесня.ListIndex = 0
Else
lstПесня.ListIndex = lstПесня.ListIndex + 1
End If
Call lstПесня_Click
End Sub