Dim obj As TextBox

        If IsNumeric(TextBox1.Text) Then
            For i As Integer = 1 To TextBox1.Text

                obj = New TextBox()
                obj.Name = Guid.NewGuid.ToString
                obj.Left = TextBox1.Left
                obj.Width = TextBox1.Width
                obj.Height = TextBox1.Height
                obj.Top = TextBox1.Top + (TextBox1.Height + 10) * i
                Me.Controls.Add(obj)
                MsgBox(obj.Name)
            Next
        End If

以上代码，如果生成5个texebox，如果向每个textbox中输入数据进行计算，就像vb6.0中textbox1(0)+textbox1(1)+textbox1(2)+textbox1(3)+textbox1(4)+textbox1(5)这样进行计算

        Dim i As Long
        For Each obj As Object In Me.Controls
            If TypeOf obj Is TextBox Then i += Val(obj.Text)
        Next
        MsgBox(i)


[ 本帖最后由 不说也罢 于 2010-1-23 11:07 编辑 ]

学习了

学习了

undefined