Как, чтобы при кликаньи на Label1 звучал звук?

[Yover]

Help please!

Как, чтобы при кликаньи на Label1 звучал звук - C:\Folder\sound.wav?

[A.A.Z.]

Код: Выделить всё

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_FILENAME = &H20000
Const SND_ASYNC = &H1

Private Sub Label1_Click()
PlaySound "C:\Folder\Sound.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub


[Yover]

Спасиба, работает!

[ИМ БЕРЗКИЙ]

А если mp3 надо ???
Можно ли без ActiveX?
И не через интерфейс MCI???

[A.A.Z.]

Насчёт mp3 не знаю, здесь конкретно просят проиграть "C:\Folder\Sound.wav" - вот я и помогаю!

[_NeoN_]

Вроде на сайте где-то был исходник как проигрывать mp3 через Direct Sound

[John_mc]

Mp3 можно так:

'Функция для проигрывания файлов в формате *.mp3

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommAnd As String) As Long

'чтобы воспроизвести файл
Call mciExecute("play имя вашего файла")

'чтобы закрыть файл
Call mciExecute("Close имя вашего файла")

[Daddy]

Mp3 можно так:

'Функция для проигрывания файлов в формате *.mp3

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommAnd As String) As Long

'чтобы воспроизвести файл
Call mciExecute("play имя вашего файла")

'чтобы закрыть файл
Call mciExecute("Close имя вашего файла")

а в фоновом режиме?