MidiInputDevice Class

[SerializableAttribute]
public sealed class MidiInputDevice

<SerializableAttribute>
Public NotInheritable Class MidiInputDevice

using radio42.Multimedia.Midi;
...
private MidiInputDevice _inDevice;
...
// open and start a certain Midi input device
private void OpenAndStartDevice(int device)
{
  _inDevice = new MidiInputDevice(device);
  _inDevice.AutoPairController = true;
  _inDevice.MessageFilter = MIDIMessageType.SystemRealtime | MIDIMessageType.SystemExclusive;
  _inDevice.MessageReceived += new MidiMessageEventHandler(InDevice_MessageReceived);
  if (_inDevice.Open())
  {
    if (!_inDevice.Start())
      MessageBox.Show(this, "Midi device could not be started! Error: " + _inDevice.LastErrorCode.ToString(), "Midi Error");
  }
  else
    MessageBox.Show(this, "Midi device could not be opened! Error: " + _inDevice.LastErrorCode.ToString(), "Midi Error");
}

// stop and close the Midi input device
private void StopAndCloseDevice()
{
  if (_inDevice != null && _inDevice.IsStarted)
  {
    _inDevice.Stop();
    _inDevice.Close();
    _inDevice.MessageReceived -= new MidiMessageEventHandler(InDevice_MessageReceived);
  }
}

private void InDevice_MessageReceived(object sender, MidiMessageEventArgs e)
{
  if (e.IsShortMessage)
  {
    Console.WriteLine("{0} : {1}", e.ShortMessage.ID, e.ShortMessage.ToString());
  }
  else if (e.IsSysExMessage)
  {
    Console.WriteLine("{0} : {1}", e.SysExMessage.ID, e.SysExMessage.ToString());
  }
  else if (e.EventType == MidiMessageEventType.Opened)
  {
    Console.WriteLine("Midi device {0} opened.", e.DeviceID);
  }
  else if (e.EventType == MidiMessageEventType.Closed)
  {
    Console.WriteLine("Midi device {0} closed.", e.DeviceID);
  }
  else if (e.EventType == MidiMessageEventType.Started)
  {
    Console.WriteLine("Midi device {0} started.", e.DeviceID);
  }
  else if (e.EventType == MidiMessageEventType.Stopped)
  {
    Console.WriteLine("Midi device {0} stopped.", e.DeviceID);
  }
}

Imports radio42.Multimedia.Midi
...
Private _inDevice As MidiInputDevice
...
' open and start a certain Midi input device
Private Sub OpenAndStartDevice(device As Integer)
  _inDevice = New MidiInputDevice(device)
  _inDevice.AutoPairController = True
  _inDevice.MessageFilter = MIDIMessageType.SystemRealtime Or MIDIMessageType.SystemExclusive
  AddHandler _inDevice.MessageReceived, AddressOf InDevice_MessageReceived
  If _inDevice.Open() Then
    If Not _inDevice.Start() Then
      MessageBox.Show(Me, "Midi device could not be started! Error " + _inDevice.LastErrorCode.ToString(), "Midi Error")
    End If
  Else
    MessageBox.Show(Me, "Midi device could not be opened! Error " + _inDevice.LastErrorCode.ToString(), "Midi Error")
  End If
End Sub

' stop and close the Midi input device
Private Sub StopAndCloseDevice()
  If Not (_inDevice Is Nothing) AndAlso _inDevice.IsStarted Then
    _inDevice.Stop()
    _inDevice.Close()
    _inDevice.MessageReceived -= New MidiMessageEventHandler(InDevice_MessageReceived)
  End If
End Sub

Private Sub InDevice_MessageReceived(sender As Object, e As MidiMessageEventArgs)
  If e.IsShortMessage Then
    Console.WriteLine("{0} : {1}", e.ShortMessage.ID, e.ShortMessage.ToString())
  Else
    If e.IsSysExMessage Then
      Console.WriteLine("{0} : {1}", e.SysExMessage.ID, e.SysExMessage.ToString())
    Else
      If e.EventType = MidiMessageEventType.Opened Then
        Console.WriteLine("Midi device {0} opened.", e.DeviceID)
      Else
        If e.EventType = MidiMessageEventType.Closed Then
          Console.WriteLine("Midi device {0} closed.", e.DeviceID)
        Else
          If e.EventType = MidiMessageEventType.Started Then
            Console.WriteLine("Midi device {0} started.", e.DeviceID)
          Else
            If e.EventType = MidiMessageEventType.Stopped Then
              Console.WriteLine("Midi device {0} stopped.", e.DeviceID)
            End If
          End If
        End If
      End If
    End If
  End If
End Sub