كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim pt As Point = New Point(10, 10)
For i As Integer = 0 To 5
Dim btn As Button = New Button
With btn
btn.Location = pt
btn.Text = "button" & (i + 1).ToString
' إضبط خصائص الباتون كيفما شئت
End With
' هنا يتم ضبط مكان كل باتون
pt.Y += btn.Height + 1
Me.Controls.Add(btn)
Next
' هنا نضيف الحدث لكل باتون
For Each b As Button In Me.Controls
AddHandler b.Click, AddressOf Btn_Click
Next
End Sub
Private Sub Btn_Click(sender As Object, e As EventArgs)
' اكتب ما تريده في الحدث
' هنا نختار الباتون بناء علي التكست الخاص به
' ثم نحدد ما يجب أن يحدث عند الضغط علي الباتون
Dim b As Button = CType(sender, Button)
Select Case b.Text
Case "button1"
Me.Close()
Case "button2"
Me.BackColor = Color.Blue
Case "button3"
Me.Text = "any text"
Case "button4"
Case "button5"
Case "button6"
End Select
End Sub
المشكلة انه اذا اظفنا اداة اخرى على الفورم مثل بيكتر بوكس او واب براوزر يقع مشكل ولا يفتح الفورم