vb6 - 如何在 Visual Basic 中为动态加载的文本框数组分配文本？

Question

如何在 Visual Basic 中为动态加载的文本框数组分配文本。

Dim txtStage1() As TextBox

ReDim Preserve txtStage1(2)

txtStage1(1).Text ="New"

我在txtStage1(1).Text ="New"Line 遇到错误。

谁能帮我...

Answer 1

我找到了我的问题的答案。

在表格上放置 aTextBox并为其命名txtarray。将 的Index属性设置TextBox为0。

Private Sub Form_Load()
    Dim i As Integer

    txtArray(0).Text = "0"

    For i = 1 To 5
        Load txtArray(i)

        With txtArray(i)
            .Text = i
            .Visible = True
            .Top = txtArray(i - 1).Top + 550
        End With
    Next i
End Sub