Другие языки программирования и технологии
Помогите кретину! Знаю только Visual Basic 6.0
Например:'Кнопка "Начать проигрываниеPrivate Sub cmdPlay_Click()???? ...????End Sub----------------------------------------------------------------------------------------------------------'Продолжить проигрываниеPrivate Sub cmdReplay_Click()????....????End Sub-----------------------------------------------------------------------------------------------------------'Пауза в проигрыванииPrivate Sub cmdSnop_Click()????....????End SubЕсли кто сжалится, допишите ради Христа!
Тебе видимо проигрыватель нужен?
Тогда вот такой код для VB 6.0
Вообще, существует масса способов воспроизвести музыку или видео используя VB.
Напрмер используя функции mciSendString, mciExecute или sndPlaySoundA.
Option Explicit
' Декларируем функцию
Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal uRetrunLength _
As Long, ByVal hwndCallback As Long) As Long
' Нажатие на кнопку - Воспроизводим файл
Private Sub cmdPlay_Click()
dim strFile as String
' Сначала загружаем файл
strFile = "C:\MyMusic.mp3" ' - это путь к музыкальному файлу.. .
Call mciSendString("open " & strFile & " alias music wait", "", 0, 0)
' Затем воспроизводим
Call mciSendString("play music", "", 0, 0)
End Sub
' Нажатие на кнопку - Останавливаем воспроизведение
Private Sub cmdStop_Click()
Call mciSendString("close all", "", 0, 0)
End Sub
Аналогично и для wav-файла, и для MIDI-файла и даже для всех одновременно (только в динамиках будет музыкальная каша...)
Тогда вот такой код для VB 6.0
Вообще, существует масса способов воспроизвести музыку или видео используя VB.
Напрмер используя функции mciSendString, mciExecute или sndPlaySoundA.
Option Explicit
' Декларируем функцию
Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal uRetrunLength _
As Long, ByVal hwndCallback As Long) As Long
' Нажатие на кнопку - Воспроизводим файл
Private Sub cmdPlay_Click()
dim strFile as String
' Сначала загружаем файл
strFile = "C:\MyMusic.mp3" ' - это путь к музыкальному файлу.. .
Call mciSendString("open " & strFile & " alias music wait", "", 0, 0)
' Затем воспроизводим
Call mciSendString("play music", "", 0, 0)
End Sub
' Нажатие на кнопку - Останавливаем воспроизведение
Private Sub cmdStop_Click()
Call mciSendString("close all", "", 0, 0)
End Sub
Аналогично и для wav-файла, и для MIDI-файла и даже для всех одновременно (только в динамиках будет музыкальная каша...)
Очевидно, что и я тоже кретин, я ничерта не понял..
так это вроде и есть васик,...
знаешь, русским программистам очень тяжело разбираться в чужом коде... им легче все переписать, чем например разобраться в исходном коде ms word'а
а в твоем коде ообще нихрена не понятно.. .
бейсик имхо мертв
а в твоем коде ообще нихрена не понятно.. .
бейсик имхо мертв
На событие нажатия какой надо кнопки, создавай события, используя методы других обьетков.. Тобишь если у тебя компонент плеер, то обращаешься к нему по имени, например cMedia.Play
КОманда после точки - это метод объекта, при помощи методов объектом монжно управлять. Я думаю, что сперва надо дать объекту путь к файлу, затем загрузить, ну или сразу воспроизводить..
КОманда после точки - это метод объекта, при помощи методов объектом монжно управлять. Я думаю, что сперва надо дать объекту путь к файлу, затем загрузить, ну или сразу воспроизводить..
создай экземпляр проигрывателя, и вызывай его методы.
Похожие вопросы
- Помогите решить задачи в Visual Basic 6.0
- Уважаемые программисты, помогите (MS Visual Basic 6.0)
- Кто-нибудь знает, как запустить wav-файл из программы написанной на Visual Basic 6.0?
- А можно ли зарабатывать зная всего лишь Visual Basic 6.0
- люди подскажите где скачать учебник по visual basic 6.0 плизз (плиз прямую ссылку)
- Visual Basic 6.0. Как изменить значение Left=0 так, чтобы имелась ввиду правая сторона экрана, а не левая ?
- у меня вопроскакого вида программы можно прописать с помощью visual basic 6.0&
- возможно настроить в visual basic 6.0 поддержку access 2003 ??
- Как удалить строку из файла (Visual Basic 6.0)
- Моему сыну (14 лет) порекомендовали учить БЕЙСИК, с чего начать, и нужен ли ему visual basic 6.0 ???