09-08-13, 08:15 PM
بسم الله الرحمن الرحيم
Populate TreeView With LINQ Code
السلام عليكم ورحمة الله وبركاته
صار لي فترة بشتغل على أكواد LINQ في النظام المحاسبي الذكي الخاص بالشركة
وطبعا في أكثر من شجرة حسابات مثل ما بيسموها أخوانا المحاسبين
وطبعا بنشتغل كفريق عمل في الشركة يعني كل واحد عارف شغله وماسك جزء
القصه وما فيها : كنت بتكلم مع شاب في الفريق الله يمسيه ويمسيكم بالخير أسمه شريف خالد
بيقول : أنا شايفك يا أبو أيهاب بتملئ الTreeView كأنك بتملئ كأس ماء
أنا ضحكت كثير يومها .. هو كلامه صحيح وهذا من فضل الله
الخلاصة :
في شباب بيعتقدوا أن البرمجة كود فقط ,,, بالعكس البرمجة في الأساس فكر وأحساس
وكرمال عيون أخواني في المنتدى : قلت أعمل لكم مثال خلال العيد
أخذ من وقتي 10 دقايق فقط .
الكــــود الموجود في الكلاس الفرعي :
الكود الموجود في الفورم الرئيسي :
والمثـــــــال في المرفقات .
تحياتي للجميع .
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
والمثـــــــال في المرفقات .
تحياتي للجميع .