کمک برای ایجاد آرایه ای از 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 درست میکنه ولی کاملا درسته