如何在COM中暴露VB6 DLL的BAS模块静态函数？

当然可以暴露BAS模块里的公共静态函数！你遇到的问题是因为VB6默认不会把模块中的公共函数自动注册为COM可调用的成员，不过只需要几步配置就能搞定：

步骤1：确认模块函数的可见性和类型兼容性 #

首先确保你的BAS模块中的函数已经标记为Public，同时函数的参数和返回值必须是COM兼容类型（比如Integer、String、Variant等，避免使用VB6特有的非兼容类型，比如未标记为Public的自定义UDT）。

步骤2：配置项目的COM类名 #

打开VB6的项目属性窗口（右键项目 -> Properties），切换到General标签页，在Class Name输入框中填写一个名称（比如MyModuleApi）——这个名称会作为模块函数所在的COM接口的对外名称。

步骤3：给BAS模块添加暴露属性 #

在你的BAS模块最顶部（Option Explicit下方）添加以下属性块，告诉VB6要将这个模块暴露给COM：

Attribute VB_Name = "YourBasModuleName" ' 替换成你的模块实际名称
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True

其中VB_Exposed = True是核心配置，它会让VB6把模块中的所有Public函数注册到COM接口中。

步骤4：编译并注册DLL #

编译你的VB6 DLL项目（开发环境中编译会自动注册），之后在测试项目中引用这个DLL。

调用暴露的静态函数 #

在测试项目中，你可以通过两种方式调用这些函数：

1. 显式指定项目类名：

Dim calcResult As Integer
calcResult = MyModuleApi.AddNumbers(10, 20) ' MyModuleApi是你设置的项目Class Name

2. 直接调用（因为VB_PredeclaredId = True会创建一个默认实例）：

Dim calcResult As Integer
calcResult = AddNumbers(10, 20)

注意事项 #

• 如果你的模块中有Private函数，它们不会被暴露，只有Public函数会被包含到COM接口中。
• 避免在模块函数中使用VB6特有的语法或类型，比如Static变量虽然可以在函数内部使用，但对外暴露的函数签名必须符合COM规范。
• 如果后续修改了模块中的函数，需要重新编译并注册DLL，测试项目可能需要重新引用。

内容的提问来源于stack exchange，提问作者Jonathan Wood