Воспроизвести аудиофайл - VB

Узнай цену своей работы

Формулировка задачи:

Не могу понять какой код надо использовать... Система такая
( и тут я не знаю какой код написать ,что в противном случае запустить медиа файл (MP3)) Надо так что бы не через плеер он его запустил а в самой программе... Помогите плз)

Решение задачи: «Воспроизвести аудиофайл»

textual
Листинг программы
Private Sub Form_Load()
Set oVoice = CreateObject("SAPI.SpVoice")
Set oSpFileStream = CreateObject("SAPI.SpFileStream")
oSpFileStream.Open "c:\windows\media\ringout.wav"
oVoice.SpeakStream (oSpFileStream)
oSpFileStream.Close
End Sub

Оцени полезность:

7   голосов , оценка 3.714 из 5