(03-07-22, 11:09 PM)سعود كتب : و عليكم  السلام ورحمة الله وبركاته


الكلاسات بعد التعديل:

PHP كود :

Public Class Class1
    Public Function GetProfile() As List(Of Profile)
        Dim ProfileList As New List(Of Profile)
        Dim p1 As New Profile
        p1.Name = "Omar"
        p1.isWork = True
        p1.Informations.Add("Address", "KSA")
        p1.Informations.Add("Age", "23")
        p1.Informations.Add("Phone", "09485433")
        Dim p2 As New Profile
        p2.Name = "Samy"
        p2.isWork = False
        p2.Informations.Add("Address", "Egypt")
        p2.Informations.Add("Age", "22")
        p2.Informations.Add("Phone", "0665573")
        Dim p3 As New Profile
        p3.Name = "Ahmad"
        p3.isWork = True
        p3.Informations.Add("Address", "Morocco")
        p3.Informations.Add("Age", "24")
        p3.Informations.Add("Phone", "6565573")
        Dim p4 As New Profile
        p4.Name = "Amar"
        p4.isWork = False
        p4.Informations.Add("Address", "Jordan")
        p4.Informations.Add("Age", "25")
        p4.Informations.Add("Phone", "6565573")
        ProfileList.Add(p1)
        ProfileList.Add(p2)
        ProfileList.Add(p3)
        ProfileList.Add(p4)
        Return ProfileList
    End Function
End Class
Public Class Profile
    Property Name As String
    Property isWork As Boolean
    Property Informations As New Dictionary(Of String, String)
End Class 


والتالي اجراء من زر في فورم

PHP كود :

       d.Rows.Clear()
        Dim c As New Class1
        For Each pro As Profile In c.GetProfile
            d.Rows.Add(pro.Name, pro.isWork, pro.Informations.Keys(0), pro.Informations.Values(0), pro.Informations.Keys(1), pro.Informations.Values(1), pro.Informations.Keys(2), pro.Informations.Values(2))
        Next 


---

تعديل على الفورم فقط

PHP كود :

Public Class Form1
    Private Sub createcolls()
        d.ColumnCount = 5
        d.Columns(0).HeaderText = "Name"
        d.Columns(1).HeaderText = "Is Work"
        d.Columns(2).HeaderText = "Address"
        d.Columns(3).HeaderText = "Age"
        d.Columns(4).HeaderText = "Phone"
        d.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        d.Rows.Clear()
        Dim c As New Class1
        For Each pro As Profile In c.GetProfile
            d.Rows.Add(pro.Name, pro.isWork, pro.Informations.Values(0), pro.Informations.Values(1), pro.Informations.Values(2))
        Next
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        createcolls()
    End Sub
End Class 


---

---

المثال البسيط مرفق