0

我是编程新手。我正在学习视觉基础。我正在使用 Visual Basic 2008,我需要以下代码的帮助:

Private Sub Timer1_Tick(ByVal sender As System.Object....
    Dim i As New Integer
    Dim nrnote As New Integer
    nrnote = TextBoxnrnote.Text
    For i = 1 To nrnote
        TextBox.i.Show()
    Next
    Timer1.Stop()

上面的代码导致以下错误:

“我”不是“System.Windows.Forms.TextBox”的成员。

nrnote是应该出现的文本框的最大数量。例如,如果我输入nrnote = 5,则文本框 1、2、3、4 和 5 应该在表单上可见。

4

1 回答 1

1

如果它们的命名一致(例如TextBox1, TextBox2, TextBox3),那么您可以这样做:

For i As Integer = 1 To nrnote
    Dim t As TextBox = CType(Me.Controls("TextBox" & i.ToString()), TextBox)
    t.Visible = True
Next

否则,您可以将文本框添加到数组中,如下所示:

Dim textBoxes() As TextBox = { FirstTextBox, SecondTextBox, ThirdTextBox }
For i As Integer = 1 To nrnote
    textBoxes(i).Visible = True
Next
于 2013-06-13T19:36:17.263 回答