Public Class Form1
Dim ContArr(25) As MYConts
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = 0 To 25
ContArr(i) = New MYConts
ContArr(i).Owner = Me
ContArr(i).ID = i
ContArr(i).Text = CStr(i)
Me.Controls.Add(ContArr(i))
ContArr(i).Location = New Size((i Mod 5) * 100, (i \ 5) * 100)
ContArr(i).Visible = True
Next
End Sub
Public Sub ContClicked(ByVal id As Integer)
'Here goes your code! :D
MsgBox("Clicked on" + CStr(id))
End Sub
End Class
Public Class MYConts
Inherits Windows.Forms.Button
Public Owner As Form1
Public ID As Integer
Private Sub MYConts_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
Owner.ContClicked(ID)
End Sub
End Class
Dim withEvents Btn as Button
.....هرکاری با متغیر می کردی خوب بازهم می شه با آرایه کرد ... فقط اینمه آرایه ی دوبعدی رو نمی شه redim کرد ... من برای این کار یه آرایه ی یه بعدی از یه کلاس که یه آرای توی خودش داره استفاده می کنم؛ حال می دهبه نقل از سید پوریا محتشمی :
ممد هم....به نقل از سید پوریا محتشمی :