掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
VB.NET でMIDIOUTをOPENするには？ (ID：108091)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
第一引数がLPHMIDIOUT型 … と言うことは、ByRefなのでは。 midiOutOpen APIを使った事が無いので、合っているのかどうかはわかりませんが、 とりあえず、以下のようなコードを書いてみたら 0が返されました。参考になれば。 Public Delegate Sub MidiOutProc( _ ByVal hmo As IntPtr, _ ByVal hwnd As UInt32, _ ByVal dwInstance As Int32, _ ByVal dwParam1 As Int32, _ ByVal dwParam2 As Int32) Private Declare Function midiOutOpen Lib "winmm" _ (ByRef lphMidiOut As IntPtr, _ ByVal uDeviceID As Int32, _ ByVal dwCallback As MidiOutProc, _ ByVal dwInstance As Int32, _ ByVal dwFlags As Int32) As Int32 Private hMid As IntPtr Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ret As Integer = midiOutOpen(hMid, -1, Nothing, 0, 0) MessageBox.Show(ret.ToString()) End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.