MIDIの音色を変えたいと思っています。調べてみると API や DrectX を用いる方法などあることがわかったのですが、やりかたがよくわかりません。
現在MIDIの再生は↓のようなプログラムで再生と停止をしています。
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
Dim MIDIFileName As String
#Region " Windows フォーム デザイナで生成されたコード "
'''''''''''''''' MIDI再生 ''''''''''''''''''''
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MIDIFileName = OpenFileDialog1.FileName
mciSendString("Play " & MIDIFileName, vbNull, 0, 0)
End Sub
'''''''''''''''' MIDI停止 ''''''''''''''''''''
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
mciSendString("Close " & MIDIFileName, vbNull, 0, 0)
End Sub
End Class
どの方法が簡単に変更することができるのでしょうか??また、方法をおしえてください。
ツイート | ![]() |