[atefkhalf2004]

الساد
كيف اشيف مجموعة من البوتون علي الفورم بناء علي رقم متسلسل

بمعني

لو عندي عشرة اصناف  من 1  الي 10
كيف اضيف  البوتون في صفوف  كل صف لا يزيد عن ثلاثة
شكرا

[ابو محمد محمد محمد]

كود :

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)

int +=30

next

[Anas Mahmoud]

استخدم الاداة FlowLayoutPanel

وقت التصميم ضع الاداه بمالقاس الذي تريده

ثم في الكود لاضافة الازرار ستقوم بالتالي :

قم بعمل الاستعلام المناسب للحصول على البيانات من الجدول ، 

ثم انشا زر جديد واضف له اسم الصنف مثلا في الخاصية 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

اعذرني الكود كتبته في النوت باد لم اجربه جربه واعطني الناتج

[atefkhalf2004]

مستر انس
انا احتاج مثال كامل
افترض ان البيانات من الجدول تسوف تعطي
1 ساندوتش1 16
2 ساندوتش1 17
3 ساندوتش1 12
4 ساندوتش1 18

[Anas Mahmoud]

حسنا
ولكن عذرا امهلني الى الليل عندما يتوفر لي بعض الوقت

[atefkhalf2004]

حضرتك  ازاي  اضع  كود تحت كل  زر  سوف يتم انشاؤه
هي الفكرة هنا

برجاء التعديل

[atefkhalf2004]

منتظر مثال من حضراتكم كما وعدتم

---

د انس محمود

[atefkhalf2004]

Up
Up
Up

[atefkhalf2004]

مستر انس
برججاء الاجابة

[atefkhalf2004]

منتظر رد د انس