[احمد 2021]

(05-04-21, 02:36 AM)messry كتب : السلام عليكم
من نظرة سريعة جربها وعطني خبر

اسمح لي باستبدال الجزء هذا

كود :

   Public Sub trevfil()
       TreeView1.BeginUpdate()
       TreeView1.Nodes.Clear()
       Dim root = New TreeNode("Application")
       TreeView1.Nodes.Add(root)

       TreeView1.Nodes(0).Nodes.Add(New TreeNode("ComboBox1"))
       TreeView1.Nodes(0).Nodes.Add(New TreeNode("ComboBox2"))
       TreeView1.Nodes(0).Nodes.Add(New TreeNode("ComboBox3"))
       TreeView1.Nodes(0).Nodes.Add(New TreeNode("ComboBox4"))
       TreeView1.Nodes(0).Nodes.Add(New TreeNode("ComboBox5"))


       For i As Integer = 0 To Com_a.Items.Count - 1
           TreeView1.Nodes(0).Nodes(0).Nodes.Add(New TreeNode(Com_a.Text))
       Next

       For i As Integer = 0 To Com_b.Items.Count - 1
           TreeView1.Nodes(0).Nodes(1).Nodes.Add(New TreeNode(Com_b.Text))
       Next

       For i As Integer = 0 To Com_c.Items.Count - 1
           TreeView1.Nodes(0).Nodes(2).Nodes.Add(New TreeNode(Com_c.Text))
       Next

       For i As Integer = 0 To Com_d.Items.Count - 1
           TreeView1.Nodes(0).Nodes(3).Nodes.Add(New TreeNode(Com_d.Text))
       Next

       For i As Integer = 0 To Com_e.Items.Count - 1
           TreeView1.Nodes(0).Nodes(4).Nodes.Add(New TreeNode(Com_e.Text))
       Next
       TreeView1.EndUpdate()
   End Sub

بهذا

كود :

   Public Sub trevfil()
       TreeView1.BeginUpdate()
       TreeView1.Nodes.Clear()
       Dim root = New TreeNode("Application")
       TreeView1.Nodes.Add(root)

       TreeView1.Nodes(0).Nodes.Add(New TreeNode("ComboBox1"))
       TreeView1.Nodes(0).Nodes.Add(New TreeNode("ComboBox2"))
       TreeView1.Nodes(0).Nodes.Add(New TreeNode("ComboBox3"))
       TreeView1.Nodes(0).Nodes.Add(New TreeNode("ComboBox4"))
       TreeView1.Nodes(0).Nodes.Add(New TreeNode("ComboBox5"))



           TreeView1.Nodes(0).Nodes(0).Nodes.Add(New TreeNode(Com_a.Text))
           TreeView1.Nodes(0).Nodes(1).Nodes.Add(New TreeNode(Com_b.Text))
           TreeView1.Nodes(0).Nodes(2).Nodes.Add(New TreeNode(Com_c.Text))
           TreeView1.Nodes(0).Nodes(3).Nodes.Add(New TreeNode(Com_d.Text))
           TreeView1.Nodes(0).Nodes(4).Nodes.Add(New TreeNode(Com_e.Text))

       TreeView1.EndUpdate()
   End Sub

مش شغال ايضا بيظهر كل الكمبو  كأباء حتي لو لم يتم تحديد واحد من عناصرة

---

(05-04-21, 01:37 AM)messry كتب :

(05-04-21, 01:32 AM)احمد 2021 كتب :

(05-04-21, 01:32 AM)messry كتب : بمعنى آخر أنت تريد أن يتم عرض العنصر المشاهد أو المختار فقط من الكومبو
؟؟؟؟؟؟؟؟؟؟

تمام

أخي الفاضل

استبدل الكود هذا

كود :

      For i As Integer = 0 To ComboBox1.Items.Count - 1
          TreeView1.Nodes(0).Nodes(0).Nodes.Add(New TreeNode(ComboBox1.Items(i)))
      Next

بهذا

كود :

 
          TreeView1.Nodes(0).Nodes(0).Nodes.Add(New TreeNode(ComboBox1.text))
     

في الجميع
مع مراعاة اسم الكومبو

بشكر حضرتك علي الرد والمتابعة الكود دة حل المشكلة علي طول 

كود :

Public Sub TREEVIEWFILLb()
       Dim cboxes = {Com_a, Com_b, Com_c, Com_d}

       TreeView1.BeginUpdate()
       TreeView1.Nodes.Clear()

       For Each cmb In cboxes
           Dim parent As New TreeNode(cmb.Name)
           If cmb.Items.Count > 0 AndAlso cmb.SelectedIndex > -1 Then


               'For Each item As String In cmb.Items

               parent.Nodes.Add(cmb.Text, cmb.Text)
               'Next

               TreeView1.Nodes.Add(parent)

           End If

       Next

       TreeView1.EndUpdate()
   End Sub

[messry]

بالتوفيق ان شاء الله