TOP > カテゴリ > Visual Basic >

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」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





関連記事



公開日:2015年03月04日
記事NO:00376