Visual Basic .NET

イベントメッセージルーチンは次の書式になります。

WinProcを利用する場合

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

m.Msg
メッセージ番号が渡されます。

m.WParam
下位２バイトにIDが渡されます。上位２バイトは現在使用しません。

m.LParam
イベントごとに固有のパラメータが渡されます。

メッセージ処理例１
イベントを使用するデバイスが１つしか存在しない場合、IDによるデバイスの判断は特に必要ありません。
以下のコードはイベントが発生したときにメッセージボックスを表示する例です。

Select Case Message
Case AIOM_AOE_START
    MsgBox "デバイスID： " & m.WParam & Chr$(13), , "ジェネレーティング開始"
Case AIOM_AOE_RPTEND
    MsgBox "デバイスID： " & m.WParam & Chr$(13) & "リピート回数： " & m.LParam, , "リピート終了"
Case AIOM_AOE_END
    MsgBox "デバイスID： " & m.WParam & Chr$(13) & "ジェネレーティング回数： " & m.LParam, , "ジェネレーティング終了"
Case AIOM_AOE_DATA_NUM
    MsgBox "デバイスID： " & m.WParam & Chr$(13) & "ジェネレーティング回数： " & m.LParam, , "データ格納"
Case AIOM_AOE_SCERR
    MsgBox "デバイスID： " & m.WParam & Chr$(13) & "ジェネレーティング回数： " & m.LParam, , "ジェネレーティングクロック周期エラー"
Case AIOM_AOE_ADERR
    MsgBox "デバイスID： " & m.WParam & Chr$(13) & "ジェネレーティング回数： " & m.LParam, , "DA変換エラー"
End Select

メッセージ処理例２
複数のデバイスでイベントを使用する場合、どのデバイスから発生したイベントかを判断する必要があります。
以下のコードは、２つのデバイス（ID1とID2）でイベントを使用する例です。

If m.WParam = ID1 Then
    Select Case Message
    Case AIOM_AOE_START
        MsgBox "デバイス1" & Chr$(13), , "ジェネレーティング開始"
    Case AIOM_AOE_RPTEND
        MsgBox "デバイス1" & Chr$(13) & "リピート回数： " & m.LParam, , "リピート終了"
    Case AIOM_AOE_END
        MsgBox "デバイス1" & Chr$(13) & "ジェネレーティング回数： " & m.LParam, , "ジェネレーティング終了"
    Case AIOM_AOE_DATA_NUM
        MsgBox "デバイス1" & Chr$(13) & "ジェネレーティング回数： " & m.LParam, , "データ格納"
    Case AIOM_AOE_SCERR
        MsgBox "デバイス1" & Chr$(13) & "ジェネレーティング回数： " & m.LParam, , "ジェネレーティングクロック周期エラー"
    Case AIOM_AOE_ADERR
        MsgBox "デバイスID： " & m.WParam & Chr$(13) & "ジェネレーティング回数： " & m.LParam, , "DA変換エラー"
    End Select
Else
    Select Case Message
    Case AIOM_AOE_START
        MsgBox "デバイス2" & Chr$(13), , "ジェネレーティング開始"
    Case AIOM_AOE_RPTEND
        MsgBox "デバイス2" & Chr$(13) & "リピート回数： " & m.LParam, , "リピート終了"
    Case AIOM_AOE_END
        MsgBox "デバイス2" & Chr$(13) & "ジェネレーティング回数： " & m.LParam, , "ジェネレーティング終了"
    Case AIOM_AOE_DATA_NUM
        MsgBox "デバイス2" & Chr$(13) & "ジェネレーティング回数： " & m.LParam, , "データ格納"
    Case AIOM_AOE_SCERR
        MsgBox "デバイス2" & Chr$(13) & "ジェネレーティング回数： " & m.LParam, , "ジェネレーティングクロック周期エラー"
    Case AIOM_AOE_ADERR
        MsgBox "デバイスID： " & m.WParam & Chr$(13) & "ジェネレーティング回数： " & m.LParam, , "DA変換エラー"
    End Select
EndIf