05-02-20, 09:32 PM
كود :
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim panel As Panel = New Panel
With panel
panel.Location = New System.Drawing.Point(262, 92)
panel.Size = New System.Drawing.Size(492, 155)
panel.BackColor = Color.Bisque
Me.Controls.Add(panel)
End With
''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''
Dim pt As Point = New Point(50, 10)
For i As Integer = 0 To 3
Dim Btnx As Button = New Button
With Btnx
Btnx.Location = pt
Btnx.Text = "Btnx" & (i + 1).ToString
Btnx.Cursor = Cursors.Hand
Btnx.Size = New System.Drawing.Size(52, 22)
' إضبط خصائص الباتون كيفما شئت
End With
' هنا يتم ضبط مكان كل باتون
pt.X += Btnx.Height + 55
'هنا اضافة الادات الى البنل
panel.Controls.Add(Btnx)
Next
' هنا نضيف الحدث لكل بوتن داخل البانل
For Each b As Button In panel.Controls.OfType(Of Button)()
AddHandler b.Click, AddressOf Btnx_Click
Next
End Sub
Private Sub Btnx_Click(sender As Object, e As EventArgs)
' اكتب ما تريده في الحدث
' هنا نختار الباتون بناء علي التكست الخاص به
' ثم نحدد ما يجب أن يحدث عند الضغط علي الباتون
Dim Btnx As Button = CType(sender, Button)
Select Case Btnx.Text
Case "Btnx1"
Text = "Sorax"
Case "Btnx2"
Case "Btnx3"
Case "Btnx4"
Close()
End Select
End Sub
End Class