Visual Basic 中学校 > Visual Basic サンプル集 > Visual Basic サンプル集目次 >
サウンドを一時停止する
この記事が対象とするファイル形式
mp3 | (*.mp3) | ○ | 対象ですが、古い環境では扱えない場合があります。 |
wave | (*.wav) | ◎ | 対象です。 |
midi | (*.mid) | △ | 対象ですが、実用に耐えません(メモを参照して下さい)。 |
この例ではButton1をクリックするとC:\Test.mp3を再生する。Button2をクリックすると停止する。Button3をクリックすると再生を一時停止し、Button4をクリックすると再生を再開する。
メモ:midの場合は再生を再開するのにButton1をクリックします。ただし、再開後は再開前のコントロールデータをすべて失います。
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer |
'■再生 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim FileName As String = "C:\Test.mp3" Call mciSendString(String.Format("open ""{0}"" alias MySound", FileName), "", 0, 0) Call mciSendString("play MySound", "", 0, 0) End Sub |
'■再生終了(完全停止) Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Call mciSendString("stop MySound", "", 0, 0) Call mciSendString("close MySound", "", 0, 0) End Sub |
'■一時停止 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Call mciSendString("pause MySound", "", 0, 0) End Sub |
'■一時停止からの再開 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Call mciSendString("resume MySound", "", 0, 0) End Sub |