السلام عليكم ورحمة الله وبركاته
كيف أعرف عدد أصول الشجرة وفروعها؟
لقد استعملت الكود التالي ولكنه يعطيني عدد الأصول فقط
وشكرا
الكود:
TreeView1.Nodes.Count
كيف أعرف عدد أصول الشجرة وفروعها؟
مرحباً أخي الكريم, لحساب عدد Nodes وتوابع كل واحدة منها عليك إستخدام حلقة تكرارية ( For Each, Next ) .
Private Sub Button1_Click( Byval Sender As SYstem.OBject, Byval E As System.EventArgs ) Handles Button1.Click
Dim Count As Integer
TreeNodesCount( TreeView1, Count )
MsgBox( Count.ToString() )
End Sub
Private Sub TreeNodesCount(ByVal Parent As Object, ByRef Count As Integer)
For Each CTN As TreeNode In Parent.Nodes
Count += 1
TreeNodesCount(CTN, Count)
Next CTN
End Sub
Best Regards,
BasharVS .
تم تعديل هذه المشاركة بواسطة Bashar Rabat في 15 ديسمبر 2008 في 20:17
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
مشكور اخي Bashar Rabat
وممكن نستخدم الدالة TreeView.GetNodeCount بهذا الشكل
Dim allNodesCount As Integer = TreeView1.GetNodeCount(True)
[وسط]لا اله الا انت سبحانك انى كنت من الظالمين
[/وسط]