Public Class Form1 Private WithEvents ff As SService'(COM组件名称) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ff = New SService
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ff.SendMessage("你好")'调用COM组件方法 End Sub
Private Sub ff_OnMessageChange(ByVal ID As String, ByVal PMessage As String) Handles ff.OnMessageChange 'COM组件事件 '未写处理代码 End Sub
Private Sub ff_OnStatusChanged(ByVal Status As Integer, ByVal ErrorStatus As Integer) Handles ff.OnStatusChanged 'COM组件另一事件 MsgBox("事件执行!") End Sub
如果删掉 Private Sub ff_OnMessageChange(ByVal ID As String, ByVal PMessage As String) Handles ff.OnMessageChange 'COM组件事件 '未写处理代码 End Sub 的代码就不出错,是不是.NET不支持COM多个事件接口