1

如果我尝试以下代码,我会得到运行时错误 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

有什么建议么?任何澄清?还是我必须为此建立一个解决方法

4

0 回答 0