VB.NET - 模块在 VBE 中解释为类

Question

我正在构建一个用于 VBA 项目的 VB.NET 类库。在我的库中，我有一个名为“Globals”的模块，我希望将一些全局（库级别）属性和方法存储在：

Imports System.Runtime.InteropServices

<ComVisible(True)>
Public Module Globals
    <ComVisible(True)>
    Public Const TestGlobal As Integer = 0
End Module

但是，当我在 Excel VBE 中引用我的库时，我的模块显示为一个类，我在对象浏览器中看不到我的常量变量：

我遗漏了什么或做错了什么导致我的模块显示为一个类？

Answer 1

VB.NET 和 COM 之间存在某种“阻抗不匹配”。 COM 主要与接口一起工作，而 .NET 从 VB 项目构建 .tlb 文件的方式使它们更容易被 COM 访问。 VB.NET 中的Module 基本上只是托管世界中的一个静态类。当从您的代码构建互操作程序集时，它会看到一个类，将其包装在一个接口中，并将该接口附加到该类：

请注意，您不能为Module 提供自己的接口实现，因为.NET 中的静态类无法实现接口。

---

在 .NET 中不能做的另一件事是创建未包装在类中的成员过程。这基本上就是Module 在 COM 世界中的含义。例如，看一下 VBA 字符串模块的 IDL：

module Strings {
    [entry(516), helpcontext(0x000f665f)]
    short _stdcall Asc([in] BSTR String);
    [entry(537), helpcontext(0x000f6e9f)]
    BSTR _stdcall _B_str_Chr([in] long CharCode);
    [entry(608), helpcontext(0x000f64e2)]
    VARIANT _stdcall _B_var_Chr([in] long CharCode);
    [entry(517), helpcontext(0x000f6ea0)]

请注意，所有条目都指定了一个 .dll 入口点。这基本上是因为您正在进行您在 C 世界中发现的各种原始函数调用。如果在 .NET 世界中存在类似物，它将是在 namespace 级别而不是类（或模块）级别声明的 Sub 或 Function。 ..

<ComVisible(True)>
Namespace SomeClass.Functions  

    <ComVisible(True)>
    Public Function Foo() As String
        Return "Foo"
    End Function    

End Namespace

...这显然不是有效的 .NET 代码。

---

在相关说明中，请记住，您在 VBA 中看不到整个图片也。 VBA 基本上建立在 COM 之上，但它非常努力地抽象掉其中的大部分内容。 VBA 模块 可以出于所有意图和目的被视为静态类。例如，您可以为它们提供属性、公共成员等。归根结底，VBA 对象浏览器是否将某些东西视为类、模块或其他东西并不重要——重要的是您可以使用非托管上下文中的托管代码。只需解决这 2 个基础架构中的差异即可获得可用的东西并收工：

Imports System.Runtime.InteropServices

<ComVisible(True)>
Public Enum Constants
    GlobalOne = 0
    GlobalTwo = 1
    GlobalEtc = 2
End Enum

<ComVisible(True)>
Public Class FunctionProvider
    <ComVisible(True)>
    Public Function Foo() As String
        'Note that the class doesn't need to keep track of "state" to be usable.
        Return "Foo"
    End Function
End Class