无法在模块 VB6 中声明字符串

Question

我正在尝试从遗留应用程序的文件中读取数据库字符串。为此，我将文件放在每个用户的 AppData 文件夹中。现在，我需要告诉应用程序文件在哪里。但是，我似乎无法在模块中声明一个字符串（原始字符串在该模块中被声明为常量）。我怎样才能克服这个问题？任何帮助将不胜感激。

这是我试过的：

Dim loc As String
loc = Environ$("APPDATA")
Public Const CnnSTR = ReadIniValue(loc & "\PensionMaster\PM-Strings.ini", "DB", "DBSQL")

但是我遇到了 'Invalid outside procedure' 错误。

Answer 1

CnnSTR = ReadIniValue(Environ$("APPDATA") & "\PensionMaster\PM-Strings.ini", "DB", "DBSQL"

会起作用的。也许还有 Dim CnnSTR as String 行。

Const x=5
y = X

与

完全相同

y=5

Answer 2

蒂姆·威廉姆斯是正确的。与其尝试将其声明为 public 变量，不如创建一个 public 函数或属性。我的偏好是在 .bas 模块中创建一个函数，在 class.

中创建一个属性

Public Function GetCnnSTR() As String
    Dim loc As String
    Dim strPath as String

    loc = Environ$("APPDATA")
    strPath = ReadIniValue(loc & "\PensionMaster\PM-Strings.ini", "DB", "DBSQL")

    GetCnnSTR = strPath

End Function

或

Public Property Get CnnSTR() As String
    Dim loc As String
    Dim strPath as String

    loc = Environ$("APPDATA")
    strPath = ReadIniValue(loc & "\PensionMaster\PM-Strings.ini", "DB", "DBSQL")

    CnnSTR = strPath

End Property

无法在模块 VB6 中声明字符串

Cannot Declare String In Module VB6

vba

vb6