如何强制Visual Basic 2008函数仅通过事件访问？

Question

我希望某些事件处理函数只能通过引发的事件访问，而不能从程序中调用。

如：

Public Event Event1(Byval TheText as string) 
private sub Event1Handler(Byval TheText as string) handles me.Event1 
    msgbox("Hi") 
end sub 

我想这段代码执行功能：RaiseEvent Event1("Hi")

但我不希望这样的代码来执行功能：Event1Handler("Hi")

是否有声明或者一些其他方式来实现这一目标？

Answer 1

右键单击该功能，然后单击“查找所有参考”。定期执行此操作以确保没有直接引用它

Answer 2

除了将此逻辑嵌入lambda expression之外，没有别的办法。