动态生成控件并定位

 

Public Class form1

    Private a(0 To 8) As Control
    Private b(0 To 8) As Object

    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        For i As Int16 = 0 To 8
            If i < 3 Then
                b(i) = New Int16
                b(i) = 5
                Debug.WriteLine(CType(b(i), Integer) & " 是" & TypeName(b(i)), ToString)
            ElseIf i < 6 Then
                b(i) = New String(CType("Welcome", Char()))
                b(i) = "Welcome"
                Debug.WriteLine(CType("Welcome", Char()) & " 是" & TypeName(b(i)), ToString)
            ElseIf i < 7 Then
                b(i) = New Label With {.BorderStyle = BorderStyle.Fixed3D, .Size = New Size(60, 60), .Location = New Point(60, 220)}
                Controls.Add(CType(b(i), Control))
                If TypeOf b(i) Is Label Then
                    Debug.WriteLine(TypeName(b(i)) & "是标签", ToString)
                End If
            End If
        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ReDim a(0 To 8)
        For i As Int16 = 0 To 8
            If i < 3 Then
                a(i) = New Label With {.BorderStyle = BorderStyle.Fixed3D, .Size = New Size(60, 60), .Location = New Point(i * 60, 0)}
                Controls.Add(a(i))
            ElseIf i < 6 Then
                a(i) = New Button With {.Size = New Size(60, 60), .Location = New Point((i - 3) * 60, 70)}
                Controls.Add(a(i))
            ElseIf i < 9 Then
                a(i) = New TextBox With {.Size = New Size(60, 60), .Location = New Point((i - 6) * 60, 150)}
                Controls.Add(a(i))
            End If
        Next
    End Sub
End Class

本程序在 Visual Basic.net 2010下设计通过