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

发布于 2024-07-12 10:14:36 字数 396 浏览 11 评论 0原文

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

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

因此，如果 L1 存储“Bar”，并且我想进行比较，我可以写 &L1 ==“Bar”。我需要能够使用 VB6 来完成此操作。有人可以帮忙吗？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

两相知 2024-07-19 10:14:36

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

Dim L(1 To 4) As String

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

Instead of creating 4 variables, I would suggest that you create an array. Ex:

Dim L(1 To 4) As String

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

回复收藏 0 原文

无敌元气妹 2024-07-19 10:14:36

你真正想要的是一个数组，如下所示：

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

What you really want is an array, like this:

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

回复收藏 0 原文

半步萧音过轻尘 2024-07-19 10:14:36

这适用于类（例如 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

This works in a class (e.g. a VB Form):

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

回复收藏 0 原文

~没有更多了~