我的代码无法编译，因为它给出了一个错误，指出MyDigiouts.SensorOneOn的“签名不兼容”。

Private Sub myDigioutsInt(ByVal src As Object, ByVal args As DiSnapEventArgs) Handles   MyDigiouts.SensorOneOn
    MsgBox("Sensor On")
End Sub

Public Event SensorOneOn()
Public Event SensorOneOff()

Private Sub InstantDiCtrl1_DiCosIntPortX(ByVal src As Object, ByVal args As DiSnapEventArgs) Handles InstantDiCtrl1.ChangeOfState
    Try
        If args.SrcNum = 0 Then


            RaiseEvent SensorOneOn()
        End If

    Catch ex As System.Exception
    End Try
End Sub

最佳答案

您的事件没有任何参数。

由于错误试图告诉您，如果事件没有参数，则无法添加带有参数的处理程序。

https://stackoverflow.com/questions/18134967/