تقييم الموضوع :
  • 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] ارجوكم ما هو الخطا فى الكود ؟ abomosaab alagan 1 111 16-09-20, 01:25 AM
آخر رد: معاند الحظ
  انشاء قاعدة بيانات SQL مع الجداول بواسط الكود aiman 1 2,441 26-12-19, 03:30 PM
آخر رد: osamaalymaghraby
  [SQL] هل ممكن المساعده في هذا الكود php mysql fadisat 0 539 07-08-19, 11:30 PM
آخر رد: fadisat
  [VB.NET] البحث عن مسار مجلد ضمن قاعدة البيانات اكسس وفتحه من الفورم EMADSSS 1 806 21-02-19, 04:38 PM
آخر رد: elgokr
  [سؤال] نسخ قيمه تيكست بوكس في فورم الاول الى تيكست في الفورم الثاني مهندس حيدر 7 2,492 26-07-17, 11:47 AM
آخر رد: hoshosgost@yahoo.com
  [سؤال] ما هو الخطأ فى هذا الكود احمد عبد الحكيم 1 900 07-07-17, 01:12 AM
آخر رد: silverlight
  طلب مساعدة لكتابة الكود بشكل صحيح moftah70 1 1,253 12-07-16, 07:52 PM
آخر رد: aliday03
  [سؤال] كيف افتح الاتصال باستخدام هذا الكود سعود 2 1,478 12-07-16, 06:23 PM
آخر رد: aliday03
  اريد استبدال الكود المرفق بكود ابسط على ان يعطي نفس النتيجة ledoledo 1 1,139 02-02-16, 07:07 PM
آخر رد: ledoledo
  [VB.NET] عرض الكود بار djelloul 2 1,122 15-01-16, 11:39 PM
آخر رد: djelloul

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


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