Populate TreeView & LINQ - نسخة قابلة للطباعة

بسم الله الرحمن الرحيم

Populate TreeView With LINQ Code

السلام عليكم ورحمة الله وبركاته

صار لي فترة بشتغل على أكواد LINQ في النظام المحاسبي الذكي الخاص بالشركة
وطبعا في أكثر من شجرة حسابات مثل ما بيسموها أخوانا المحاسبين

وطبعا بنشتغل كفريق عمل في الشركة يعني كل واحد عارف شغله وماسك جزء
القصه وما فيها : كنت بتكلم مع شاب في الفريق الله يمسيه ويمسيكم بالخير أسمه شريف خالد
بيقول : أنا شايفك يا أبو أيهاب بتملئ الTreeView كأنك بتملئ كأس ماء
أنا ضحكت كثير يومها .. هو كلامه صحيح وهذا من فضل الله
الخلاصة :
في شباب بيعتقدوا أن البرمجة كود فقط ,,, بالعكس البرمجة في الأساس فكر وأحساس

وكرمال عيون أخواني في المنتدى : قلت أعمل لكم مثال خلال العيد
أخذ من وقتي 10 دقايق فقط .

الكــــود الموجود في الكلاس الفرعي :

PHP كود :

Public Class PlayerCommand

    Dim Db As DbDataContext = New DbDataContext

    ' List Of Players

    Public Function GetAllPlayers() As List(Of PlayerTab)
        Return (Db.PlayerTabs).ToList
    End Function

End Class

الكود الموجود في الفورم الرئيسي :

PHP كود :

Imports System.Windows.Forms
Imports System.Drawing

Public Class FrmTreeView
    Dim PCmd As PlayerCommand = New PlayerCommand


    Sub PopulateTreeView()
        '  By :   [ Abu Ehab ]
        '==================================================

        PCmd = New PlayerCommand
        With TreeViewPlayers

            .Nodes.Clear()
            .Cursor = Cursors.Hand
            .ImageList = ImageList1
            .Nodes.Add("Xprema", "All Players", 0)

            Dim Ply = PCmd.GetAllPlayers

            Dim i As Integer = 0

            For Each MP In Ply

                .Nodes(0).Nodes.Add(MP.PlayerID, MP.PlayerName).ImageIndex = 1

                Dim GetAllInfo = (From AIn In PCmd.GetAllPlayers Where AIn.PlayerID = MP.PlayerID Select AIn)

                For Each xInfo In GetAllInfo

                    Dim Ag = (From A In GetAllInfo Where A.PlayerID = xInfo.PlayerID Select A.PlayerAge).Single

                    Dim Nox = (From N In GetAllInfo Where N.PlayerID = xInfo.PlayerID Select N.PlayerNo).Single


                    .Nodes(0).Nodes(i).Nodes.Add("", "Age Is :  " & Ag, 2)
                    .Nodes(0).Nodes(i).Nodes.Add("", "His Nomber Is :" & Nox, 3)

                    i += 1

                Next
            Next

        End With

    End Sub

    Private Sub FrmTreeView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PopulateTreeView()
    End Sub

    Private Sub ExpandBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExpandBtn.Click
        Try
            TreeViewPlayers.ExpandAll()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub CollapseBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CollapseBtn.Click
        Try
            TreeViewPlayers.CollapseAll()
        Catch ex As Exception

        End Try
    End Sub
End Class 

والمثـــــــال في المرفقات .

تحياتي للجميع .