+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] User control (/showthread.php?tid=41927)
User control - كيرلس رفعت - 17-07-22
ازاي ابرمج الuser control انها تاخد من قاعدة البيانات اكسس والبرنامج يعمل مجموعة من اليوزر كنترول بعدد البيانات الموجودة داخل الداتا جريد فيو
RE: User control - سعود - 17-07-22
الــUserControl هو نفسه يعتبر Form لكن من دون حواف وبرمجته بالضبط مثل الفورم و كانك في فورم له احداث وتضع ادوات.
RE: User control - asemshahen5 - 17-07-22
RE: User control - كيرلس رفعت - 17-07-22
(17-07-22, 03:53 AM)سعود كتب : الــUserControl هو نفسه يعتبر Form لكن من دون حواف وبرمجته بالضبط مثل الفورم و كانك في فورم له احداث وتضع ادوات.انا عايز الكود اللي يربطه بقاعدة البيانات مع تكرار user control بحسب صفوف قاعدة البيانات
RE: User control - سعود - 17-07-22
(17-07-22, 01:26 PM)كيرلس رفعت كتب :(17-07-22, 03:53 AM)سعود كتب : الــUserControl هو نفسه يعتبر Form لكن من دون حواف وبرمجته بالضبط مثل الفورم و كانك في فورم له احداث وتضع ادوات.انا عايز الكود اللي يربطه بقاعدة البيانات مع تكرار user control بحسب صفوف قاعدة البيانات
بصراحة كنت اظنه ممكن لاني مجرب الويب لكن لم الكود اللذي استخدمه
PHP كود :
For i As Integer = 0 To lst.Count - 1
Dim u As New uc1
u.lbl.Text = lst.Keys(i)
Panel1.Controls.Add(u)
Next
PHP كود :
Public Class Form1
Dim lst As New Dictionary(Of String, String)
Dim i As Integer = 0
Dim k As Integer = 0
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If k >= lst.Count Then Exit Sub
Dim uc As New uc1
uc.Top = i
i += (uc.Height + 20)
uc.lbl.Text = lst.Keys(k)
Panel1.Controls.Add(uc)
k += 1
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
lst.Add("منتدى فيجوال بيسك للعرب", "http://vb4arb.com/vb/index.php")
lst.Add("منتدى الفريق العربي للبرمجة", "http://arabteam2000.com")
lst.Add("منتدى دلفي للعرب", "https://delphi4arab.net/forum/")
End Sub
End Class