1

カードリーダーを VB6 から vb.net に適応させようとしています。変換後に次のエラーが発生します。

'AddressOf' expression cannot be converted to 'Integer' because 'Integer' is not a delegate type

私が使用しているコードは次のとおりです。

Public Sub SetupCallBacks()
    'UPGRADE_WARNING: Add a delegate for AddressOf OnEventDeviceStateChanged Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="E9E157F7-EF0C-4016-87B7-7D7FBBC6EE08"'
    Call MTUSCRADeviceStateChangedNotify(AddressOf OnEventDeviceStateChanged)
    'UPGRADE_WARNING: Add a delegate for AddressOf OnEventCardDataStateChanged Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="E9E157F7-EF0C-4016-87B7-7D7FBBC6EE08"'
    Call MTUSCRACardDataStateChangedNotify(AddressOf OnEventCardDataStateChanged)
End Sub


Public Sub OnEventDeviceStateChanged(ByVal parm As Integer)
    If (gbEvents) Then
        If (glDeviceState <> parm) Then
            glDeviceState = parm
        End If

        Select Case glDeviceState
            Case MTSCRA_STATE_DISCONNECTED
                SetStatus(("OnEventDeviceStateChanged:Disconnected"))
            Case MTSCRA_STATE_CONNECTED
                SetStatus(("OnEventDeviceStateChanged:Connected"))
            Case MTSCRA_STATE_ERROR
                SetStatus(("OnEventDeviceStateChanged:Error"))
        End Select
    End If
End Sub

私の知る限り、デリゲートで何かをする必要がありますが、その方法がわかりません。

4

1 に答える 1