کمک برای ایجاد آرایه ای از PictureBox

[Parsa_2006]

سلام من می خوام آرایه ای از PictureBox بسازم که بتونم با یک Event همه اونها رو کنترل کنم ممنون میشم اگه کسی بتونه کمکم کنه با تشکر

[ghafoori]

لازم به تعریف ارایه نیست به این کد نگاه کنید

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim a As Integer

        Dim picbox As PictureBox

        For a = 0 To 10

            picbox = New PictureBox

            picbox.Name = a.ToString

            picbox.Top = a * 30

            Me.Controls.Add(picbox)

            AddHandler picbox.Click, AddressOf picbox_click

        Next

    End Sub



    Sub picbox_click(ByVal sender As Object, ByVal e As EventArgs)

        Dim picbox As PictureBox

        picbox = CType(sender, PictureBox)

        If picbox.Name = "2" Then

            MsgBox(picbox.Name + " click")

        End If

    End Sub

این کد 10 PictureBox درست می کند و رویدادتمام انها را برابر یک تابع قرار می دهد در این تابع هم می توانی به کنترلی که رویداد در ان انجام شده دست پیدا کنی و کاری که می خواهی را انجام بدی

[maroot]

البته 11 تا picturebox درست میکنه ولی کاملا درسته