28-01-21, 03:58 PM
تفضل اخي الكريم هاي الفكرة
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FlowLayoutPanel1.FlowDirection = FlowDirection.RightToLeft
Dim int As Integer
For i As Integer = 1 To 3
Dim btn As New Button
btn.Text = "btn" + i.ToString
btn.Name = "btn" + i.ToString
btn.Left = 10
btn.Top = int
Me.Controls.Add(btn)
AddHandler btn.Click, AddressOf Button_Click_
int += 30
FlowLayoutPanel1.Controls.Add(btn)
Next
End Sub
Private Sub Button_Click_(ByVal SENDER As System.Object, ByVal E As System.EventArgs)
MsgBox(SENDER.NAME)
MsgBox(SENDER.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FlowLayoutPanel1.FlowDirection = FlowDirection.RightToLeft
Dim int As Integer
For i As Integer = 1 To 3
Dim btn As New Button
btn.Text = "btn" + i.ToString
btn.Name = "btn" + i.ToString
btn.Left = 10
btn.Top = int
Me.Controls.Add(btn)
AddHandler btn.Click, AddressOf Button_Click_
int += 30
FlowLayoutPanel1.Controls.Add(btn)
Next
End Sub
Private Sub Button_Click_(ByVal SENDER As System.Object, ByVal E As System.EventArgs)
MsgBox(SENDER.NAME)
MsgBox(SENDER.Text)
End Sub