一个vb.net使用midiOutShortMsg播放MIDI实例

 先记号，有时间再测试修改

Imports System.Runtime.InteropServices ' 引用运行时互操作性库

Public Class Form1 ' 定义一个名为 Form1 的类
    <DllImport("winmm.dll")> ' 引用 winmm.dll 动态链接库
    Private Shared Function midiOutOpen(ByRef lphMidiOut As IntPtr, ByVal uDeviceID As Integer, ByVal dwCallback As IntPtr, ByVal dwInstance As IntPtr, ByVal dwFlags As Integer) As Integer ' 声明名为 midiOutOpen 的 API 函数
    End Function

    <DllImport("winmm.dll")> ' 引用 winmm.dll 动态链接库
    Private Shared Function midiOutClose(ByVal hMidiOut As IntPtr) As Integer ' 声明名为 midiOutClose 的 API 函数
    End Function

    <DllImport("winmm.dll")> ' 引用 winmm.dll 动态链接库
    Private Shared Function midiOutShortMsg(ByVal hMidiOut As IntPtr, ByVal dwMsg As Integer) As Integer ' 声明名为 midiOutShortMsg 的 API 函数
    End Function

    Private Const MIDI_NOTE_ON As Integer = &H90 ' 定义常量 MIDI_NOTE_ON 的值为 0x90
    Private Const