Function 将VB6 Const occurrences更改为使用函数

我正在处理一个旧的VB6项目。好了，我有一个常数

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

现在，

INI\u路径

已从始终设置为“C:\MyPath\MyINI.INI”，改为现在可以位于其他目录或原始位置

我有一个函数，可以根据一些条件来获得INI路径

Public Function GetINIPath() As String

我想知道是否还有其他方法可以让我做类似的事情

INI_PATH = GetINIPath()

因此，无论在哪里使用INI_路径，现在都使用基于函数的新路径

我发现在VB6中没有定义或类似的东西。

---

除了将

INI_PATH

的所有实例更改为函数

GetINIPath（）

，我还有其他选择吗？

正如您所说，VB6中没有别名或定义的概念

但是如果您不介意给维护人员带来一些潜在的混乱，您可以这样做：

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

Private函数INI_PATH（）作为字符串
INI_路径=
端函数

在VB中，调用没有参数的函数时不需要参数，因此只需创建一个名为

INI\u PATH

的函数，代码仍然可以工作