ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð±Ð ¤¸¥ó°}¦C(Array)«áªº ©R¦WºÃ´b

[µo°Ý] ½Ð±Ð ¤¸¥ó°}¦C(Array)«áªº ©R¦WºÃ´b

Public Class Form1
    Dim chbo(10, 10) As CheckBox

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim usx As Integer
        Dim usy As Integer
        Dim nn As Integer
        Dim fontFamily As New FontFamily("·L³n¥¿¶ÂÅé")
        Me.Show()
        nn = 1
        For uux = 1 To 1300 Step 50
            For uuy = 1 To 600 Step 140

                For usx = 0 To 5
                    For usy = 0 To 5

                        chbo(usx, usy) = New CheckBox
                        chbo(usx, usy).BackColor = Color.Aquamarine
                        chbo(usx, usy).Width = 40
                        chbo(usx, usy).Height = 130

                        chbo(usx, usy).Location = New Point(10 + usx + uux, 10 + usy + uuy)

                        Me.Controls.Add(chbo(usx, usy))
                        chbo(usx, usy).Text = chbo(usx, usy).Name & nn  '³oÃ䪺 .Name «çµLªkÅã¥Ü

                    Next
                Next
                nn = nn + 1
            Next
        Next

    End Sub
End Class

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD