Microsoft DirectX 8.0 (Visual Basic) |
ノートに関する情報を保持するパフォーマンス メッセージを送信する。
object.SendNotePMSG( _ lTime As Long, _ flags As Long, _ channel As Long, _ msg As DMUS_NOTE_PMSG)
失敗した場合はエラーが発生し、Err.Number に次のいずれかの値が設定される。
DMUS_E_NO_MASTER_CLOCK |
DMUS_E_ALREADY_SENT |
DMUS_E_INVALIDARG |
次のサンプル コードでは、perf が DirectMusicPerformance8 オブジェクトであり、メッセージを送信して、直ちに中間の C を演奏する。
Dim note As DMUS_NOTE_PMSG note.midiValue = 60 note.mtDuration = 500 note.flags = DMUS_NOTEF_NOTEON note.velocity = 127 Call perf.SendNotePMSG(0, DMUS_PMSGF_REFTIME, 1, note)