تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافة button في مكان محدد علي قورم
#1
الساد
كيف اشيف مجموعة من البوتون علي الفورم بناء علي رقم متسلسل

بمعني

لو عندي عشرة اصناف  من 1  الي 10
كيف اضيف  البوتون في صفوف  كل صف لا يزيد عن ثلاثة
شكرا
الرد
تم الشكر بواسطة:
#2
كود :
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
الرد
تم الشكر بواسطة: اسامه الهرماوي
#3
استخدم الاداة 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

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

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


الملفات المرفقة
.rar   WindowsApplication30.rar (الحجم : 61.48 ك ب / التحميلات : 6)
الرد
تم الشكر بواسطة:
#7
منتظر مثال من حضراتكم كما وعدتم

د انس محمود
الرد
تم الشكر بواسطة:
#8
Up
Up
Up
الرد
تم الشكر بواسطة:
#9
مستر انس
برججاء الاجابة
الرد
تم الشكر بواسطة:
#10
منتظر رد د انس
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم