+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : أضافة زر إلى الفورم بواسطة الكود (/showthread.php?tid=29203)
أضافة زر إلى الفورم بواسطة الكود - djelloul - 30-03-19
السلام عليكم ورحمة الله تعالى وبركاته
الأساتذة الكرام رجاءا
عندي جدول بقاعدة بيانات sql server أريد عميل مجموعة أزرار Buttons بحسب عدد سجلات الجدول
مثلا لو عندي في الجدول سجل تطلعلي 20 زر كل زر باسم معين مسجل مسبقا داخل الجدول ف خقل معين مثلا name
أرجوا أن أكون قد وفقت لشرح فكرة سؤالي والف شكر لكم مسبقا
RE: أضافة زر إلى الفورم بواسطة الكود - PalmTree - 02-05-19
(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