appxとしてインストールすると、midioutshortmsgを呼び出しても音が出ません
次のコードを使用しています.デスクトップアプリコンバーターを使用してAppxに変換した後、midiOutShortMsg( "Winmm.dll"から)は音を出しません.
PublicClassMidiOut2
PrivateSharedFunctionmidiOutShortMsg(ByValhMidiOutAsIntPtr、ByValmsgAsInteger)AsUInteger
EndFunction
PrivateSharedFunctionmidiOutOpen(ByReflphMidiOutAsIntPtr、ByValuDeviceID%、ByValdwCallbackAsIntPtr、ByValdwInstanceAsIntPtr、ByValdwFlagsAsInteger)AsUInteger
EndFunction
PrivatehMidiOutAsIntPtr= IntPtr.Zero
PublicSubSend(status%、toneNum%、vol%)
shortMsg%=(vol<<16)Or(toneNum<<8)Orstatus
midiOutShortMsg(hMidiOut、shortMsg)
EndSub
PublicSubNew(DevID%)
midiOutOpen(hMidiOut、DevID、Nothing、IntPtr.Zero、0)
EndSub
'...
PrivateSharedFunctionmidiOutclose(hAsIntPtr)AsUInteger
EndFunction
PublicSubClose()
midiOutclose(hMidiOut)
EndSub
EndClass
'
-
'私はそれをクラスForm1から呼び出します.
DimmidiOut0asNewMidiOut2(0)
midiOut0.Send(153、someNote%、Velocity%)
'153isstatusbytevaluefordrumchannelnote-on
返信リスト(回答:2)
こんにちは、私の名前はアンダーソン・ソウザです.あなたの問題を解決できることを願っています.
古いTechNetに代わる新しいMicrosoftQ&Aフォーラムなど、より適切な場所に投稿すると、質問はより適切に解決されると思います.開発者向けの質問ですので、このフォーラムはホームWindowsユーザーを対象としているため、より良い結果が得られると思います.以下のリンクを確認してください.
https://docs.Microsoft.com/ja-jp/answers/products/
どういたしまして.とにかく、あなたの質問はいつでもここで歓迎されます.