更改VB6 Const出现以改为使用函数

Question

我正在开发一个旧的VB6项目。在那里，我有一个Const

Private Const INI_PATH = "C:\MyPath\MyINI.INI"

现在INI_PATH已经从总是设置为“C：\ MyPath \ MyINI.INI”，而现在可以在另一个目录中或原始位置。

我有一个函数可以根据某些条件现在用来获取INI路径。

Public Function GetINIPath() As String

我想知道无论如何我都能做类似

的事情

INI_PATH = GetINIPath()

因此，在使用INI_PATH的任何地方，现在都使用基于该函数的新路径。

我发现VB6中没有#define或类似内容。 除了将INI_PATH的所有实例更改为函数GetINIPath()之外，我还有其他选择吗？

Answer 1

正如你所说，VB6中没有别名或#define的概念。

但是如果你不介意给维护者造成一些潜在的混淆，你可以这样做：

Private Function INI_PATH() As String
    INI_PATH = <whatever>
End Function

Answer 2

在VB中，调用没有参数的函数时不需要parens，所以只需创建一个名为INI_PATH的函数，你的代码仍然有用。