(25-02-17, 04:27 PM)bidaya كتب :الكود يقوم بانشاء ازرار مع تعيين حدث النقر لكل زركود :
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
المشكلة انه اذا اظفنا اداة اخرى على الفورم مثل بيكتر بوكس او واب براوزر يقع مشكل ولا يفتح الفورم
انشاء فورم مع زار وتعيين الحدث لفورم المنشاء
وشكرا لكم