تقييم الموضوع :
  • 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 ك ب / التحميلات : 152)
Abu Ehab : Microsoft Partner  & Systems Developer
 Youtube   Facebook    Twitter   
الرد }}}
تم الشكر بواسطة: sendbad100
#2
السلام عليكم اخي ابو ايهاب عيد سعيد ينعاد عليك بالصحة والعافية

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

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

يعطيك العافية
الرد }}}
تم الشكر بواسطة:
#3
مسمى الكلاس يسبب لي رهبةSmileSmileSmile
الرد }}}
تم الشكر بواسطة:
#4
ليش ( لمــــــــــاذا ) ؟
أنت يا سعود مكبر ومضخم ومصعب الموضوع .. مع أنها أسهل وأبسط وأفضل وأريح وأكثر أحترافيه ومرونه وووو .... ألـــخ
Abu Ehab : Microsoft Partner  & Systems Developer
 Youtube   Facebook    Twitter   
الرد }}}
تم الشكر بواسطة:
#5
(09-08-13, 11:00 PM)سعود كتب : مسمى الكلاس يسبب لي رهبةSmileSmileSmile

نفس القصة    معي 
لم اتعامل مع الكلاسات من قبل   
واحس برعب    منها
الرد }}}
تم الشكر بواسطة:
#6
ليش ؟!!!!
هي اساسا Net. مبنية على الكلاسات .
Abu Ehab : Microsoft Partner  & Systems Developer
 Youtube   Facebook    Twitter   
الرد }}}
تم الشكر بواسطة: sendbad100
#7
(02-12-17, 04:24 PM)Abu Ehab كتب : ليش   ؟!!!!
هي اساسا Net.   مبنية على الكلاسات  .

اللي ما يطول العنب حامض عنه بقول 

باذن الله  ننطلق معكم في الدوت نت  بالذات سي شارب

وبفضلك انت والمجموعة الطيبة في هذا المنتدى الراائع والراقي.

سندخل عالم الكلاسات خطوة خطوة
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#8
الملف غير موجود ممكن رفعه للاهميه
الرد }}}
تم الشكر بواسطة:
#9
الاكواد غير مفهومه ممكن شرح تفصيلى للاكواد
الرد }}}
تم الشكر بواسطة:



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


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