MIDIファイルを再生する
MIDIファイルを再生するサンプルです。
サンプルの実行画面
ソースコード
[MIDIPlay.frm]
'mciSendString =>MCI デバイスにコマンド文字列を送る '<引数> 'lpstrCommand: コマンドの文字列 'lpstrReturnString:戻り値の文字列 'uReturnLength: 文字列の大きさ 'hwndCallback: 0 '@戻り値@ '正常終了0以外 '※Waveファイルも再生できます。 Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _ (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _ ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Private Sub Command1_Click() Dim Ret As Long '開く Ret = mciSendString("open " & Text1.Text & " alias MIDIFILE", vbNullString, 0, 0) '演奏 Ret = mciSendString("play MIDIFILE notify", vbNullString, 0, 0) '--------------------------------------------------------------- '演奏が終わるまで処理を渡さない 'Ret = mciSendString("play MIDIFILE wait", vbNullString, 0, 0) '--------------------------------------------------------------- End Sub Private Sub Command2_Click() Dim Ret As Long '一時停止 Ret = mciSendString("Pause MIDIFILE", vbNullString, 0, 0) End Sub Private Sub Command3_Click() Dim Ret As Long '閉じる Ret = mciSendString("close MIDIFILE", vbNullString, 0, 0) End Sub Private Sub Form_Unload(Cancel As Integer) Dim Ret As Long '閉じる Ret = mciSendString("close MIDIFILE", vbNullString, 0, 0) End Sub
ソースコード一式のダウンロード
vbapi_midiplay.zip 1.16 KB (1,190 バイト)
このサンプルの動作環境について
このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。
スポンサーリンク
関連記事
前の記事: | MIDI出力デバイス名を列挙する |
次の記事: | レジストリのキーを作成する |
公開日:2015年03月04日
記事NO:00376