![]() ![]() TextBox1.AppendText( String.Format( " ", _ If ((HideMidiSysMessages = True) And ((dwParam1 And &HF0) = &HF0)) Then Exit Sub ElseĭataByte2 = (dwParam1 And &HFF0000) > 16 TextBox1.Invoke( New DisplayDataDelegate( AddressOf DisplayData), _Įnd If End Function Private Sub DisplayData(dwParam1) Public Delegate Sub DisplayDataDelegate(dwParam1)ĭim wMid As Int16 ' Manufacturer ID Dim wPid As Int16 ' Product ID Dim vDriverVersion As Integer ' Driver versionĭim szPname As String ' Product Name Dim dwSupport As Integer ' Reserved End Structure Dim hMidiIn As Integer Dim StatusByte As Byte Dim DataByte1 As Byte Dim DataByte2 As Byte Dim MonitorActive As Boolean = False Dim HideMidiSysMessages As Boolean = False Function MidiInProc( ByVal hMidiIn As Integer, _īyVal dwParam1 As Integer, ByVal dwParam2 As Integer) As Integer If MonitorActive = True Then Public Const CALLBACK_FUNCTION As Integer = &H30000 ( ByRef hMidiIn As Integer, ByVal uDeviceID As Integer, _īyVal dwCallback As MidiInCallback, ByVal dwInstance As Integer, _īyVal dwFlags As Integer) As Integer Public Declare Function midiInStart Lib " winmm.dll" ( ByVal hMidiIn As Integer) As Integer Public Declare Function midiInStop Lib " winmm.dll" ( ByVal hMidiIn As Integer) As Integer Public Declare Function midiInReset Lib " winmm.dll" ( ByVal hMidiIn As Integer) As Integer Public Declare Function midiInClose Lib " winmm.dll" ( ByVal hMidiIn As Integer) As Integer Public Delegate Function MidiInCallback( ByVal hMidiIn As Integer, _īyVal wMsg As UInteger, ByVal dwInstance As Integer, _īyVal dwParam1 As Integer, ByVal dwParam2 As Integer) As Integer Public ptrCallback As New MidiInCallback( AddressOf MidiInProc) ![]() Public Declare Function midiInGetNumDevs Lib " winmm.dll" () As Integer Public Declare Function midiInGetDevCaps Lib " winmm.dll" _Īlias " midiInGetDevCapsA" ( ByVal uDeviceID As Integer, _īyRef lpCaps As MIDIINCAPS, ByVal uSize As Integer) As Integer Public Declare Function midiInOpen Lib " winmm.dll" _ ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |