Релиб / Программирование / VBA / Помогите пожалуйста с PlaySound !!! / Latest Posts

RE: Помогите пожалуйста с PlaySound !!!

Pavel55 — Tue, 25 Sep 2007 01:07:08 GMT

Ответ с кодом есть тут http://www.vbnet.ru/forum/show.aspx?id=151579

Сюда код не могу выложить постоянно показывает ошибку!!!!!!!!!!

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

Ошибка

Sorry the application encountered an unexpected error. Information about this error has been logged. If you continue to receive this message please contact the board administrator

Помогите пожалуйста с PlaySound !!!

mefodey — Mon, 24 Sep 2007 23:24:47 GMT

Весь инте облазил, нашел кучу вариантов, которые должны работать, для воспроизведения wav файлов. В частности:
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Sub CommandButton1_Click()
Dim x As Long
x = PlaySound("C:\windows\media\ding.wav", 0, &H1 Or &H10)
End Sub

Но почему то ни одна из них в VBA для Office 2000/2003 не работает, PlaySound возвращает 0 всегда. В чем может быть косяк???