分成三類來介紹

1.播放系統音效

My.Computer.Audio.PlaySystemSound(系統音效名稱)

例:

My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)  '驚嘆聲
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)  '星號
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep)  '預設嗶聲
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand)  '緊急停止
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Question)  '問題(預設無音效)

對應至控制台/聲音/音效

  
2.wav格式 聲音檔

My.Computer.Audio.Play("wav檔之路徑", 播放模式)

例:

My.Computer.Audio.Play("D:\音效\雷射聲.wav", AudioPlayMode.Background)

播放模式有三種值

AudioPlayMode.WaitToComplete 播放時程式會暫停執行,播放完畢才會執行下一行敘述
AudioPlayMode.Background     背景播放,程式不會暫停執行
AudioPlayMode.BackgroundLoop 背景播放,播完會重播


※My.Computer.Audio.Stop()  '停止播放

3.mp3格式,midi格式 聲音檔

Private Sub Button1_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button1.Click
   PlayMidiFile("檔案路徑")
End Sub

Private Sub Button2_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button2.Click
   PauseMidi()  '暫停播放
End Sub

Private Sub Button3_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button3.Click
   ContinueMidi()  ' 繼續播放
End Sub

 Private Function PlayMidiFile(ByVal MusicFile As String) As Boolean
        If System.IO.File.Exists(MusicFile) Then         '播放音樂的function
            mciSendStringA("open " & MusicFile & " alias music", "", 0, 0)
            PlayMidiFile = mciSendStringA("play music", "", 0, 0) = 0
        End If
End Function

Private Function PauseMidi() As Boolean  '暫停播放的function
   Return mciSendStringA("pause music", "", 0, 0) = 0
End Function

Private Function ContinueMidi() As Boolean  ' 繼續播放的function
  Return mciSendStringA("play music", "", 0, 0) = 0
End Function


※教學請勿轉貼

文章標籤
全站熱搜
創作者介紹
創作者 鵝 的頭像
鵝

mini鵝的天地

鵝 發表在 痞客邦 留言(146) 人氣(5,679)