４２．MiDiの出力デバイスを開いてハンドルを取得する

＜　使用用途　＞
MIDI を使用する時に用いる

＜　説明　＞
ＡＰＩ関数のMidiOutOpen を使用します。
MidiOutOpen＝＞MIDI出力デバイスのハンドルを取得
　　＜引数＞
　　　 　lphMidiOut：ハンドルを格納する変数
　　 　　uDeviceID：常に-1
　　　　 dwCallback：常に0
　　　　dwInstance：常に0
　　　　 dwFlags：常に0
　　＠戻り値＠　　
　　　　　　正常終了0

＊詳しいサンプルは「☆プログラムを作ってみよう」で掲載する予定です。

<　ＳＡＭＰＬＥ　＞
'ここではMIDI出力デバイスのハンドルを取得する処理です
'標準モジュール
Public Declare Function midiOutOpen Lib "winmm.dll" Alias "midiOutOpen" (lphMidiOut As Long, ByVal uDeviceID As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long

'ここからはフォームの処理
Private Sub Command1_Click()
　　
　　Dim Ret As Long
　　Dim Handle As Long

　　'Handleにハンドルが入る
　　Ret=midiOutOpen(Handle,-1,0,0,0)

End Sub