(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