تخزين tree فال CheckedListBox

UP

على فرض ان الـ treeview هي tv جربي الكود التالي

For i As Integer = 0 To tv.GetNodeCount(False) - 1
            clb.Items.Add(tv.Nodes(i).Text)
            Dim n As Integer = tv.Nodes(i).GetNodeCount(False) - 1
            If n >= 0 Then
                For j As Integer = 0 To n
                    clb.Items.Add(tv.Nodes(i).Nodes(j).Text)
                Next
            End If
        Next

وعدليه حسب مشيئتك

بالتوفيق

الله يعطيك العافيه والصحه وراحه البال

ويزيد علم ونور ..جزاك الله خير ...

راح اطور الكود للشكل المطلوب لبرنامجي وشكرا على الحل

أخيـ haroon :lol:

For i As Integer = 0 To TreeView1.GetNodeCount(False) - 1
                    CheckedListBox1.Items.Add(TreeView1.Nodes(i).Text)
                    Dim n As Integer = TreeView1.Nodes(i).GetNodeCount(False) - 1
                    If n >= 0 Then
                        For j As Integer = 0 To n
                            CheckedListBox1.Items.Add(TreeView1.Nodes(i).Nodes(j).Text)
                            Dim n1 As Integer = TreeView1.Nodes(i).Nodes(j).GetNodeCount(False) - 1
                            If n1 >= 0 Then
                                For j1 As Integer = 0 To n1
                                    CheckedListBox1.Items.Add(TreeView1.Nodes(i).Nodes(j).Nodes(j1).Text)
                                Next
                            End If
                        Next
                    End If
                Next