VAVE, MIDI ファイルの演奏(mciSendString) Hit Counter

対象バージョン :  97, 2000, 2002, 2003
最終更新日 : 2005/04/25 (オリジナル作成日:1998/11/03)


概 要 

Windows API を用いて WAVE, MIDI ファイルを演奏する方法です。

 

解 説

宣言

Declare Function mciSendString Lib "WINMM.DLL" Alias "mciSendStringA" _
    (ByVal lpstrCommand As String, ByVal lpstrReturnSting As String, _
    ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

プロシージャ

Dim ret As Long
Dim strFileName As String

strFileName = "c:\windows\media\canyon.mid"
ret = mciSendString("Open " & strFileName & _
    " alias chName", vbNullChar, 0&, 0&)
ret = mciSendString("play chName wait", vbNullChar, 0&, 0&)
ret = mciSendString("close chName", vbNullChar, 0&, 0&)

補 足


目次へ戻る