29-09-20, 03:25 PM
استخدم الاداة FlowLayoutPanel
وقت التصميم ضع الاداه بمالقاس الذي تريده
ثم في الكود لاضافة الازرار ستقوم بالتالي :
قم بعمل الاستعلام المناسب للحصول على البيانات من الجدول ،
ثم انشا زر جديد واضف له اسم الصنف مثلا في الخاصية text و كذلك ال Id الخاص به في الخاصية tag ، لاحظ ان هذه الخطوة مهمة جدا جدا للتميز بين الازرار
ثم اضف له حدث الضغط للاجراء btn_click الذي ستلتقط فيه هذا الحدث مثلا
الان الاجراء الخاص بالحدث
اعذرني الكود كتبته في النوت باد لم اجربه جربه واعطني الناتج
وقت التصميم ضع الاداه بمالقاس الذي تريده
ثم في الكود لاضافة الازرار ستقوم بالتالي :
قم بعمل الاستعلام المناسب للحصول على البيانات من الجدول ،
ثم انشا زر جديد واضف له اسم الصنف مثلا في الخاصية text و كذلك ال Id الخاص به في الخاصية tag ، لاحظ ان هذه الخطوة مهمة جدا جدا للتميز بين الازرار
ثم اضف له حدث الضغط للاجراء btn_click الذي ستلتقط فيه هذا الحدث مثلا
كود :
Dim btn As New Button
btn.Tag = 0 'ID
btn.Text = "" 'النص المكتوب عليه
AddHandler btn.Click , addressof btn_Click
flowLayoutPanel1.Controls.Add(btn)الان الاجراء الخاص بالحدث
كود :
Sub btn_Click (sender as object, e as eventargs)
dim btn as Button = sender
dim Id as integer = btn.tag
'الان ان تعرف اي صنف تم ضغطه Id
'افعل ما تراه مناسبا
end subاعذرني الكود كتبته في النوت باد لم اجربه جربه واعطني الناتج

