'抛出事件类
class yourclass
public event E_example(byval p1 as object,byval p2 as integer,...)
'加载驱动信息
private sub a()
...
...
RaiseEvent E_example(me.驱动信息,intme,...)
end sub
end class
接受事件
class abcd
'带事件声明变量
public withevent exam as new yourclass
‘接受事件
private sub sfs(byval x as object,byval i as integer,...)handles exam.E_example
'your own code
end sub
end class
'另外,可以用addhandler和removehandler实现事件列表的添加 不懂继续问阿,这一节我还可以