+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اضافة button في مكان محدد علي قورم (/showthread.php?tid=36562)
الصفحات:
1
2
RE: اضافة button في مكان محدد علي قورم - mbk2006 - 28-01-21
تفضل اخي الكريم هاي الفكرة
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