如果我尝试以下代码,我会得到运行时错误 459 ,看在上帝的份上,我不知道这是一个错误,还是用户窗体简单并且由于未知原因没有实现该功能?!
名为“ViewInterface”的类
Option Explicit
Public Event ButtonPressed(ButtonID As ButtonID, Selected As Long)
…
Public Sub ClearList()
End Sub
…
在名为 frmMain 的用户窗体中
Option Explicit
Implements ViewInterface
…
在另一个班级(名称无关)
Option Explicit
Private WithEvents view As ViewInterface
…
Private Sub Class_Initialize()
Set view = New frmMain '<-- this throws the temper tantrum
End Sub
有什么建议么?任何澄清?还是我必须为此建立一个解决方法