17-07-22, 02:21 AM
ازاي ابرمج الuser control انها تاخد من قاعدة البيانات اكسس والبرنامج يعمل مجموعة من اليوزر كنترول بعدد البيانات الموجودة داخل الداتا جريد فيو
(17-07-22, 03:53 AM)سعود كتب : [ -> ]الــUserControl هو نفسه يعتبر Form لكن من دون حواف وبرمجته بالضبط مثل الفورم و كانك في فورم له احداث وتضع ادوات.انا عايز الكود اللي يربطه بقاعدة البيانات مع تكرار user control بحسب صفوف قاعدة البيانات
(17-07-22, 01:26 PM)كيرلس رفعت كتب : [ -> ](17-07-22, 03:53 AM)سعود كتب : [ -> ]الــUserControl هو نفسه يعتبر Form لكن من دون حواف وبرمجته بالضبط مثل الفورم و كانك في فورم له احداث وتضع ادوات.انا عايز الكود اللي يربطه بقاعدة البيانات مع تكرار user control بحسب صفوف قاعدة البيانات
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
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