Dim cir1(127) As circle Dim cir2(63) As circle Dim cir21(63) As circle

Dim aa As Control Dim i As Integer = 0 Dim m As Integer Dim j As Integer Dim n As Integer Dim x As Integer Dim y As Integer Dim s As Integer

For Each aa In Me.GroupBox1.Controls If TypeOf (aa) Is circle Then cir1(i) = CType(aa, circle) i = i + 1 End If Next

j = i

For Each aa In Me.GroupBox2.Controls If TypeOf (aa) Is circle Then cir1(j) = CType(aa, circle) j = j + 1 End If Next

For x = 0 To 3 For n = 0 To 15 cir2(16 * x + n) = cir1(n + 2 * m + 16) Next m = m + 16 Next

For x = 0 To 3 For n = 0 To 15 cir21(16 * x + n) = cir1(n + 2 * s) Next s = s + 16 Next

For x = 0 To 63 cirx(x) = cir2(63 - x) Next

For x = 0 To 63 ciry(x) = cir21(63 - x) Next

在.NET中,窗體是一容器,GROUPBOX是一容器,要取得某一容器中的控件,必須通過引用其父容器.在此實例中,通過"掃描"容器中的控件,并判斷控件類型.從而獲得所要的控件.(此貼用到的CIRCLE類,在我發表的"自定義圓"貼子中創建的.)