VBA/Excel/Access/Word/Windows API/Sound — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Текущая версия на 15:48, 26 мая 2010
Get return value from sound play function
<source lang="vb">
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Sub playSound()
Dim returnVal As Long returnVal = sndPlaySound("C:\myWave.wav", 0)
End Sub
</source>
Makes a sound using the computer"s built-in speaker.
<source lang="vb">
Private Sub ge()
Beep
End Sub
</source>