سلام من می خوام آرایه ای از PictureBox بسازم که بتونم با یک Event همه اونها رو کنترل کنم ممنون میشم اگه کسی بتونه کمکم کنه با تشکر
Printable View
سلام من می خوام آرایه ای از PictureBox بسازم که بتونم با یک Event همه اونها رو کنترل کنم ممنون میشم اگه کسی بتونه کمکم کنه با تشکر
لازم به تعریف ارایه نیست به این کد نگاه کنید
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 درست می کند و رویدادتمام انها را برابر یک تابع قرار می دهد در این تابع هم می توانی به کنترلی که رویداد در ان انجام شده دست پیدا کنی و کاری که می خواهی را انجام بدی
البته 11 تا picturebox درست میکنه ولی کاملا درسته