تقييم الموضوع :
  • 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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [Acces2010] اريد تعديل الكود للاكسس بسام محمدغانم 0 833 13-10-21, 09:14 PM
آخر رد: بسام محمدغانم
  طريقة أضافة اكثر من سيرفر على نفس قاعدة البيانات alim54 0 1,141 20-06-21, 11:20 PM
آخر رد: alim54
  [Acces2010] ارجوكم ما هو الخطا فى الكود ؟ abomosaab alagan 1 1,110 16-09-20, 01:25 AM
آخر رد: معاند الحظ
  انشاء قاعدة بيانات SQL مع الجداول بواسط الكود aiman 1 3,943 26-12-19, 03:30 PM
آخر رد: osamaalymaghraby
  [SQL] هل ممكن المساعده في هذا الكود php mysql fadisat 0 1,429 07-08-19, 11:30 PM
آخر رد: fadisat
  [VB.NET] البحث عن مسار مجلد ضمن قاعدة البيانات اكسس وفتحه من الفورم EMADSSS 1 2,270 21-02-19, 04:38 PM
آخر رد: elgokr
  [سؤال] نسخ قيمه تيكست بوكس في فورم الاول الى تيكست في الفورم الثاني مهندس حيدر 7 4,857 26-07-17, 11:47 AM
آخر رد: hoshosgost@yahoo.com
  [سؤال] ما هو الخطأ فى هذا الكود احمد عبد الحكيم 1 1,894 07-07-17, 01:12 AM
آخر رد: silverlight
  طلب مساعدة لكتابة الكود بشكل صحيح moftah70 1 2,024 12-07-16, 07:52 PM
آخر رد: aliday03
  [سؤال] كيف افتح الاتصال باستخدام هذا الكود سعود 2 2,681 12-07-16, 06:23 PM
آخر رد: aliday03

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


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