Программирование
Веб программирование

VB звук

 
 

Для работы со звуом, и все что с ним связанно есть компонент Microsot Multimedia Control 6.0. С помощью него можно проигрывать звуковые и видео файлы. Подключи этот компонент, и за одно Common Dialog. Щас сделаем программу, котоая будет проигрывать звуковые файлы. На форму кинь кнопу(Caption = "Открыть"), MMControl(Name= "MM"), CommonDialog(Name = "CD"). Код:

Private Sub Command1_Click()
CD.ShowOpen ' Вызываем окно открытия файлов
MM.FileName = CD.FileName ' Открываем выбранный файл
MM.Command = "open" ' Запускаем
End Sub

Теперь выбери любой звуковой файл, и нажми на Play. Только в этом примере все кнопки выбираются автоматом, и от тебя ни чего не зависит. В следующем шаге мы будем делать все это только в ручную.

Исходник - Здесь


Есть вопросы? Спроси на нашем форуме!!
Эдик [25.10.2011 12:01]

спасибо ваш исходник замечательно работает, по чему же на Всте не работает если я все делаю сам, пишет ошибку Run-time error '424': Необходим Объект

Padre [25.10.2011 16:53]

Вполне возможно что на висте нет библиотеки для проигрывания звука. Нужно уточнить в яндексе.
Если действительно не хватает библиотеки, то наверное библиотеку придется скопировать в туже папку где и программа.

Максим [06.11.2011 14:05]

А у меня этого компонента нету где скачать можно

ЭдикS@N [03.12.2011 12:41]

не знаю как но у меня это компонент поставился сам собой наверно с обновлением пришло и сейчас работает я тут собрал программку похожую на эту только добавил модуль вот коды.
========================================================
Код модуля:
Public Declare Function mciSendString Lib "winmm.dll"
Alias "mciSendStringA" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
------------------------------------------------------------
код Формы:
Private Sub Command1
Click()
CD.ShowOpen
MM.FileName = CD.FileName
MM.Command = "open"
End Sub

Private Sub Command2Click()
mciSendString "Set cdaudio door open wait", 0, 0, 0
End Sub

Private Sub Command3
Click()
mciSendString "Set cdaudio door closed wait", 0, 0, 0

End Sub

ЭдикS@N [03.12.2011 12:45]

может еще кто знает что ни будь подобное но по сложней. можно присылать мне на майл спама не боюсь. flowersking@mail.ru

Чувак [14.11.2012 23:16]

Автор хоть бы указал уже и работу видео. Этот компонент и с видео работает, так почему не показать сразу и работу с ним? В принципе VB мощный язык, очень мощный!

poma [20.05.2013 16:07]

Пишу прогромму,запускаю--Работает
Записываю...открываю НЕ РАБОТАЕТ!!!
Вместо WindowsMediaPlayer1 какая-то фигня???
Помогите!!!

alex13sh300 [20.05.2013 19:28]

заного добавить этот контрол, вместо ВМ возможно пиктур бокс рисуется на вашей форме, короче каждый раз вроде надо при запуске проекта все не стандартные контролы заного добавлять

вроде как то можно сделать что бы нужные вам контролы добавлялись при запусске проекта (Всегда) ну я хз, неинтересовался

Coolhacker770 [21.05.2013 16:43]

Разумеется, ВБ неведомы декларации, он есть ИИ, и контролы он угадывает

Coolhacker770 [21.05.2013 16:44]

А ежели серьезно, то в нормальной IDE в файл с проектом пишутся еще и подключаемые либры.
Если у человека руки прямы и растут из плеч, то все ок и с ВБ и с чем угодно...

mixtern [21.01.2014 11:11]

а что делать мне если у меня нет Microsot Multimedia Control 6.0.

Stertor370 [21.01.2014 13:40]

Эта либа всегда есть, искаропки. Просто нужно ее зарегистрировать.



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.