Kак воспроизвести звуковой файл — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Вариант
 
iFileName = "C:\Windows\Media\LogOff.wav"
iMacroFunction = "SOUND.PLAY(,""" & iFileName & """)"
ExecuteExcel4Macro iMacroFunction
Если же необходимо программно определить был или нет воспроизведён звук, то для этого можно воспользовать функцией IsSoundPlay, вызов которой приведён ниже.
 
Private Sub Test()
    iFileName$ = "C:\Windows\Media\LogOff.wav"
  
    If IsSoundPlay(iFileName$) = True Then
       MsgBox "Мы только что воспроизвели звук", , ""
    Else
       MsgBox "К сожалению, ничего не вышло", , ""
    End If
End Sub
  
Private Function IsSoundPlay(iFileName$) As Boolean
    iMacroFunction$ = "SOUND.PLAY(,""" & iFileName$ & """)"
    IsSoundPlay = Not IsError(ExecuteExcel4Macro(iMacroFunction$))
End Function
Вариант
Если на компьютере установлен Проигрыватель Windows Media Player, то :
 
CreateObject("MediaPlayer.MediaPlayer.1").Open "C:\Windows\Media\Tada.wav" 'Tada.wma
Обратите внимание на то, что Вы можете использовать и другие возможности этого проигрывателя, к примеру, узнать причину отсутствия звука:
 
With CreateObject("MediaPlayer.MediaPlayer.1")
     .Open "C:\Windows\Media\Music.mp3"
     If .HasError = True Then MsgBox .ErrorDescription, , ""
End With

Похожие записи/страницы:

Leave a Comment