|
|
|
новичок
участник
Last Login: 25.09.2007 9:40
Сообщ.: 1,
Visits: 7
|
|
Весь инте облазил, нашел кучу вариантов, которые должны работать, для воспроизведения 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 всегда. В чем может быть косяк???
|
|
|
|
|
Supreme Being
участник
Last Login: 14.12.2007 16:53
Сообщ.: 100,
Visits: 1 707
|
|
| Ответ с кодом есть тут http://www.vbnet.ru/forum/show.aspx?id=151579 Сюда код не могу выложить постоянно показывает ошибку!!!!!!!!!! Постоянно вылезает ошибка на этом форуме, то невозможно зайти на него, то невозможно написать ответ
|
|
|
|