تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أضافة زر إلى الفورم بواسطة الكود
#1
السلام عليكم ورحمة الله تعالى وبركاته 
الأساتذة الكرام رجاءا

عندي جدول بقاعدة بيانات sql server أريد عميل مجموعة أزرار Buttons بحسب عدد سجلات الجدول 
مثلا لو عندي في الجدول  سجل تطلعلي 20 زر كل زر باسم معين مسجل مسبقا داخل الجدول ف خقل معين مثلا name 

أرجوا أن أكون قد وفقت لشرح فكرة سؤالي والف شكر لكم مسبقا
الرد
تم الشكر بواسطة:
#2
(30-03-19, 10:11 PM)djelloul كتب : السلام عليكم ورحمة الله تعالى وبركاته 
الأساتذة الكرام رجاءا

عندي جدول بقاعدة بيانات sql server أريد عميل مجموعة أزرار Buttons بحسب عدد سجلات الجدول 
مثلا لو عندي في الجدول  سجل تطلعلي 20 زر كل زر باسم معين مسجل مسبقا داخل الجدول ف خقل معين مثلا name 

أرجوا أن أكون قد وفقت لشرح فكرة سؤالي والف شكر لكم مسبقا

السلام عليكم ورحمة الله
اخي الفاضل
اتمني الكود التالى يساعدك
كود :
(Dim UserButtons As List(Of Button) = New List(Of Button


Sub FillITEMS(ByVal GROUPNAME As String)
       Try
           Dim DT As New DataTable
           DT.Clear()
           DT = CLS_ITEME_.SHOW_BY_GROUP(GROUPNAME)
           Dim I As Integer = 0
           If DT.Rows.Count > 0 Then
               For II As Integer = 0 To DT.Rows.Count - 1
                   Dim btn As New Button
                   Static m_Rnd As New Random
                   btn.Tag = DT.Rows(I)(1).ToString
                   btn.Text = DT.Rows(I)(2).ToString & "_" & DT.Rows(I)(5).ToString
                   btn.TextAlign = ContentAlignment.MiddleCenter
                   btn.ForeColor = Color.White
                   btn.FlatStyle = FlatStyle.Popup
                   btn.Width = 220
                   btn.Height = 40
                (UserButtons.Add(btn
                  (LIST_ITEMS.Controls.Add(btn
                   AddHandler btn.Click, AddressOf Me.BTN_TO_DGV_Click
                   I = I + 1
               Next
           End If
       
 
 End Sub



   Private Sub BTN_FILL_ITEMS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
     


           Dim btn1 As Button = CType(sender, Button)
           Dim str As String = btn1.Text.Trim()
           LBL_TableNo.Text = str
           LIST_ITEMS.Controls.Clear()
           FillITEMS(str)
       

     
   End Sub
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] البحث عن مسار مجلد ضمن قاعدة البيانات اكسس وفتحه من الفورم EMADSSS 1 215 21-02-19, 04:38 PM
آخر رد: elgokr
  [سؤال] نسخ قيمه تيكست بوكس في فورم الاول الى تيكست في الفورم الثاني مهندس حيدر 7 1,565 26-07-17, 11:47 AM
آخر رد: hoshosgost@yahoo.com
  [سؤال] ما هو الخطأ فى هذا الكود احمد عبد الحكيم 1 453 07-07-17, 01:12 AM
آخر رد: silverlight
  طلب مساعدة لكتابة الكود بشكل صحيح moftah70 1 826 12-07-16, 07:52 PM
آخر رد: aliday03
  [سؤال] كيف افتح الاتصال باستخدام هذا الكود سعود 2 1,112 12-07-16, 06:23 PM
آخر رد: aliday03
  اريد استبدال الكود المرفق بكود ابسط على ان يعطي نفس النتيجة ledoledo 1 701 02-02-16, 07:07 PM
آخر رد: ledoledo
  [VB.NET] عرض الكود بار djelloul 2 668 15-01-16, 11:39 PM
آخر رد: djelloul
  [سؤال] طريقة الاتصال بقاعدة البيانات هل يمكن تعديل الكود elhon.tec 3 1,958 27-05-15, 02:53 AM
آخر رد: mbk2006
  [سؤال] كيف احول الكود الى دوت نت abdala 5 1,521 16-03-15, 09:31 PM
آخر رد: abdala
  [سؤال] ارجو المساعدة فى هذا الكود عاجل abdala 5 1,587 07-12-14, 03:48 AM
آخر رد: الوليد ☺

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


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