如何从代码访问vb6模块的名称?

恐怕无法在代码中获得BAS模块的名称。通常的解决方案是使用模块级常量,如 Mike's answer .

afaik获取progid(编程id, 项目名称 在“项目属性”对话框中)将引发BAS模块中的错误,将其捕获,然后读取 Err.Source .

这一切都很麻烦,这就是为什么我们通常不麻烦在标准错误处理程序中包含模块名或progid。我们使用例程的名称“滚动自己的”调用堆栈。这总是足够的信息,以找出哪些模块涉及。BAS模块中的例程通常有唯一的名称,对吧?

有点像 this ,您可以使用 MZTools VB6加入。

Sub / Function whatever 
On Error Goto Handler
do some stuff
Exit Sub / Function

Handler:
Err.Raise Err.Number, "(function_name)->" & Err.source, Err.Description 
End Sub

dll或ocx中的每个顶级例程都有类似的错误处理程序,但也包括 App.ExeName 所以我们可以判断错误何时跨越组件边界。

我不确定是否有一种简单的方法以编程方式获取您所在模块的名称。通常的解决方案是将每个方法顶部的变量设置为模块的名称,然后错误处理程序可以使用该变量进行日志记录:

'In MyModule.bas'

Public Sub Foo()

   Const MODULE_NAME As String = "MyModule"

   On Error GoTo ErrorHandler

   ' Code here '

   Exit Sub

ErrorHandler:

   LogError Err.Number, Err.Description, MODULE_NAME

End Sub   

如果您使用的是mztools这样的插件,那么它会为您生成这个样板代码。

对于获取当前组件名称,可以使用 App.EXEName (尽管有这个名称,但这适用于其他项目类型,如dll)。此值从 项目名称 在IDE中运行时项目属性(项目->属性)中的字段,以及在IDE外部运行时编译的二进制文件名(减去文件扩展名)中的字段。