Страница: 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 Если есть свои особенности, пиши...