Страницы: 1
RSS
Excel, VBA и звуки
 
Захотелось вот добавить мультимедийности своим могучим макросам. Порылся в книжках, надыбал вот такую функцию  
============================================  
Private Declare Function PlaySound Lib "winmm.dll" _  
Alias "PlaySoundA" (ByVal lpszName As String, _  
ByVal hModule As Long, ByVal cVwFlags As Long) As Long  
Const SND_SYNC = &H0  
Const SND_FILENAME = &H20000  
Const SND_ASYNC = &H1  
 
Sub PlayWAVO()  
WAVFILE = "good_shot_commander2.wav"  
WAVFILE = "C:\Program Files\Valve\czero\sound\radio\bot" & WAVFILE  
Call PlaySound(WAVFILE, 0&, SND_ASYNC Or SND_FILENAME)  
End Sub  
==================================================  
НЕ РАБОТАЕТ! Ошибок при компиляции не выдает, но и не играет. Я думал дело в библиотеке winmm.dll, нашел, она есть у меня в систем32. Хелп плиз.
 
Посмотри здесь, сам не разбирался, но может получится  
http://samples.gotdotnet.com/quickstart/CompactFramework/doc/playsounds.aspx
 
А файл существует с именем botgood_shot_commander2.wav ?  
потому что результатом:  
WAVFILE = "good_shot_commander2.wav"  
WAVFILE = "C:\Program Files\Valve\czero\sound\radio\bot" & WAVFILE  
будет:  
C:\Program Files\Valve\czero\sound\radio\botgood_shot_commander2.wav  
А предполагалось, наверно:  
C:\Program Files\Valve\czero\sound\radio\bot\good_shot_commander2.wav?
 
У меня с правильным путем к файлу звук воспроизвело
 
{quote}{login=Лузер}{date=20.10.2007 11:15}{thema=}{post}А предполагалось, наверно:  
C:\Program Files\Valve\czero\sound\radio\bot\good_shot_commander2.wav?{/post}{/quote}  
 
Ясен пень что так именно и предпролагалось! Ну я и лошара!!!!  Нет чтоб посмотреть значение переменной. СПАСИБО Лузер!!!
Страницы: 1
Читают тему
Наверх