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

@Kelt1s · Регистрация: 29.05.2015

Author24 — интернет-сервис помощи студентам

Не могу понять какой код надо использовать... Система такая

Visual Basic

Dim GoHa As String
    GoHa = InputBox("...", "...", "")
    If GoHa = "..." Then
        Text2.Text = "..."
Else

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

Помогите плз)

@Казанский · 30.05.2015, 08:20

Проиграть Звук Wav Асинхронно с другим звуком

Поиск по PlaySound в этом разделе - 17 тем

@vasiliw8 · 30.05.2015, 17:16

Visual Basic

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

Добавлено через 6 минут

Visual Basic

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 
'Воспроизводим файл
Private Sub Command1_Click()
Call mciExecute("play c:\Slow.mp3") ' В скобках после play путь к файлу
End Sub
 
'Стоп
Private Sub Command2_Click()
Call mciExecute("close c:\Slow.mp3") ' В скобках после close путь к файлу
End Sub

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

Решение

Решение

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	30.05.2015, 08:20	2
	Сообщение было отмечено The trick как решение Решение Проиграть Звук Wav Асинхронно с другим звуком Поиск по PlaySound в этом разделе - 17 тем 0

	30.05.2015, 17:16