تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Populate TreeView & LINQ
#1
بسم الله الرحمن الرحيم


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.PlayerIDMP.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 :  " Ag2)
                    .
Nodes(0).Nodes(i).Nodes.Add("""His Nomber Is :" Nox3)

                    
+= 1

                Next
            Next

        End With

    End Sub

    
Private Sub FrmTreeView_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        PopulateTreeView
()
    
End Sub

    
Private Sub ExpandBtn_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ExpandBtn.Click
        
Try
            
TreeViewPlayers.ExpandAll()
        Catch 
ex As Exception

        End 
Try
    
End Sub

    
Private Sub CollapseBtn_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles CollapseBtn.Click
        
Try
            
TreeViewPlayers.CollapseAll()
        Catch 
ex As Exception

        End 
Try
    
End Sub
End 
Class 

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

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




الملفات المرفقة
.rar   Populate Tree LINQ.rar (الحجم : 173.46 ك ب / التحميلات : 76)

Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم اخي ابو ايهاب عيد سعيد ينعاد عليك بالصحة والعافية

جزاك الله خيرا

تم نقل الموضوع الى قسم مشاريع vb.net

يعطيك العافية
الرد }}}}
تم الشكر بواسطة:
#3
مسمى الكلاس يسبب لي رهبةSmileSmileSmile
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#4
ليش ( لمــــــــــاذا ) ؟
أنت يا سعود مكبر ومضخم ومصعب الموضوع .. مع أنها أسهل وأبسط وأفضل وأريح وأكثر أحترافيه ومرونه وووو .... ألـــخ

Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  LINQ TO SQL N-Tire Abu Ehab 14 1,861 03-08-13, 09:43 PM
آخر رد: Sajad
  مثال على السحب والافلات (Drag & Drop) في أداة الـ TreeView Sniper.ps 1 783 18-04-13, 02:30 AM
آخر رد: مبرمج بلا حدود
  TreeView & ListBox ____Folders + Files Abu Ehab 0 591 01-10-12, 06:45 PM
آخر رد: Abu Ehab
  مثال على LINQ To ListView Sniper.ps 2 750 24-09-12, 01:54 PM
آخر رد: Sniper.ps

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم