Visio clsEventSink库

Question

我想按照https://msdn.microsoft.com/en-us/library/office/ff767482.aspx中的指南创建一个事件对象。当我创建变量时会出现问题：

mEventSink as clsEventSink

我收到了编译错误：用户定义的类型未定义

我尝试为此搜索图书馆，但我无法找到能够为我提供解决方案的资源。

Answer 1

我猜你要么将所有代码放在一个标准模块中，要么是两个独立的模块，要么没有正确地重命名类模块，但请注意创建类所需的说明模块（即不是标准模块）：

  

将此示例代码复制到VBA或Visual Basic中的新类模块中，   命名模块clsEventSink 。然后，您可以使用事件接收器模块   接下来创建一个clsEventSink类的实例和一个   发送事件通知的MouseMove事件的事件对象   解雇班级实例。

因此实现Class.forName接口的第一部分代码进入类模块和第二部分，初始化方法进入标准模块。