منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اضافة button في مكان محدد علي قورم
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
الساد
كيف اشيف مجموعة من البوتون علي الفورم بناء علي رقم متسلسل

بمعني

لو عندي عشرة اصناف  من 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
استخدم الاداة 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

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

برجاء التعديل
منتظر مثال من حضراتكم كما وعدتم

د انس محمود
Up
Up
Up
مستر انس
برججاء الاجابة
منتظر رد د انس
الصفحات : 1 2