使用变量遍历变量？

Question

我正在尝试找到一种方法来迭代要在文本框中显示的字符串列表。这些字符串是从一个名为“texts”的单独类中检索出来的。字符串在“texts”类中声明为(对于ngs1，2，3等)

 Public Shared ngs1 As String = "Text"

此块在单击next按钮时运行，该按钮的目的是遍历显示的文本列表。

        ElseIf firstTimeRun = True Then
        welcome += 1
        Select Case welcomePages
            Case 1
                txtDisplay.Text = texts.ngs1
            Case 2
                txtDisplay.Text = texts.ngs2
            Case 3
                txtDisplay.Text = texts.ngs3
        End Select

我希望能够在没有选择的情况下做到这一点，所以它基本上是

'Pseudo code
ElseIf firstTimeRun = True Then
welcome += 1
txtDisplay.text = texts.ngs(welcome)

我不确定如何正确地做到这一点，通过在其他变量的名称中使用变量。如有任何帮助，将不胜感激，谢谢！

Answer 1

如果您只是想遍历所有这些文本，只需创建一个列表(字符串)或数组并添加所有ngsX...

例如：Dim list as List(Of String)

Dim indexActualShownString as Integer

然后你就可以在你的Clicked_Event中使用

txtDisplay.text=list.Items(indexActualShownString) as Integer
indexActualShwonString += 1

但我不确定我是否正确理解了你的问题。你也应该实现一种重置indexActualShownString的方法，因为我不知道它的确切目的是什么。