vb6 - 需要使用存储在字符串 vb6 中的值来引用变量

Question

我正在使用 For 循环遍历一些代码。迭代变量是“i”。在 For 循环之前，我已经确定了以下变量的尺寸。L1、L2、L3、L4 作为字符串。我想通过某种方式引用“L”和char（i）来在For循环中引用这些字符串。因此，就像值“Foo”<>“L”和 Char(i) 的比较一样，结果应该是在 i=1 时针对存储在变量 L1 中的字符串测试“Foo”。或者当 i=2 时针对 L2 等等。

我以前的编程经验是 Visual FoxPro，我所要做的就是在字符串前面加上一个 & 前缀，然后它引用了名称存储在字符串中的变量。

因此，如果 L1 存储“Bar”，并且我想比较我可以写 &L1 == “Bar”。我需要能够用 VB6 做到这一点。任何人都可以帮忙吗？

Answer 1

我建议您创建一个数组，而不是创建 4 个变量。前任：

Dim L(1 To 4) As String

For i = 1 to 4
    L(i) = "Whatever"
Next

Answer 2

你真正想要的是一个数组，像这样：

Dim L(3) As String  ''// index begins at 0, 4 total elements

For Each i As String In L
    If "Foo" <> i Then
        ''// ...
    End If
Next i

Answer 3

这适用于类（例如 VB 表单）：

Option Explicit

Public L1 As String
Public L2 As String
Public L3 As String
Public L4 As String

Sub Main()

  L1 = "Foo"
  L2 = "Bar"
  L3 = "Go"
  L4 = "Figure"

  Dim i As Long
  For i = 1 To 4
    Debug.Print CallByName(Me, "L" & CStr(i), VbGet)
  Next

End Sub