تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن مساعدة بالتري فيو و لست فيو
#1
مرحباا يا اخوان

عملت برنامج ووضعت بداخلة ListView1

و TreeView1

،،

محتاج طريقة اضع فورم يقوم بإضافة عناصر داخل list و ايضا داخل tree ،، يعني مثل لوحة التحكم و ذلك لاقوم بتحكم باضافة و ازالة العناصر بعد نشر البرنامج لعديد من المستخدمين ..

و محتاج

عندما اضغط على اي خيار داخل treeview يظهر لي مجموعة من العناصر او الخيارات داخل listview

بإنتظار الرد Smile
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم،
ضع على Form1:
TreeView1
ListView1

و الآن أستبدل كود Form1 بالكود التالي:
PHP كود :
Public Class Form1

    
Private treeValues As New Dictionary(Of StringString())

    Private 
Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        FillTree
()
        
ListView1.View View.Tile
        FillTreeValues
(TreeView1.Nodes)
    
End Sub

    
Private Sub FillTree()
        For 
Each N As TreeNode In TreeView1.Nodes
            N
.Nodes.Clear()
            
N.Nodes.Add(N.Index " - 0""Node " N.Index " - 0")
            
N.Nodes.Add(N.Index " - 1""Node " N.Index " - 1")
            
N.Nodes.Add(N.Index " - 2""Node " N.Index " - 2")
            
N.Expand()
        
Next
    End Sub

    
Private Sub FillTreeValues(ByVal nodes As TreeNodeCollection)
        For 
Each N As TreeNode In nodes
            Dim 
list As New List(Of String)
            list.
Add("First value of " N.Name)
            list.
Add("Second value of " N.Name)
            list.
Add("Third value of " N.Name)
            
treeValues.Add(N.Name, list.ToArray())
            
FillTreeValues(N.Nodes)
        
Next
    End Sub

    
Private Sub TreeView1_AfterSelect(ByVal sender As System.ObjectByVal e As System.Windows.Forms.TreeViewEventArgsHandles TreeView1.AfterSelect
        ListView1
.Items.Clear()
        
Dim vals As String() = treeValues(e.Node.Name)
        For 
As Integer 0 To vals.Length 1
            ListView1
.Items.Add(vals(I))
        
Next
    End Sub
End 
Class 
الرد }}}}
تم الشكر بواسطة:
#3
شكرا لك اخي Aly El-Haddad ،

ولكن هل ممكن طريقة لعمل فورم يقوم باضافة العناصر و ازالتها من داخل node
ايضا فورم لاضافة ال node و ازالتها ،،
الرد }}}}
تم الشكر بواسطة:
#4
أضف إلى Form1:
TextBox1 للنص الذي يتم إضافته
Button1 للإضافة
Button2 للحذف

و الآن أستبدل الكود السابق بالتالي:
PHP كود :
Public Class Form1

    
Private treeValues As New Dictionary(Of StringString())

    Private 
Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        TreeView1
.HideSelection False
        FillTree
()
        
ListView1.View View.Tile
        ListView1
.HideSelection False
        FillTreeValues
(TreeView1.Nodes)
    
End Sub

    
Private Sub FillTree()
        
TreeView1.Nodes.Clear()
        
TreeView1.Nodes.Add("Node0""Node0")
        
TreeView1.Nodes.Add("Node1""Node1")
        
TreeView1.Nodes.Add("Node2""Node2")
        For 
Each N As TreeNode In TreeView1.Nodes
            N
.Nodes.Clear()
            
N.Nodes.Add(N.Index " - 0""Node " N.Index " - 0")
            
N.Nodes.Add(N.Index " - 1""Node " N.Index " - 1")
            
N.Nodes.Add(N.Index " - 2""Node " N.Index " - 2")
            
N.Expand()
        
Next
    End Sub

    
Private Sub FillTreeValues(ByVal nodes As TreeNodeCollection)
        For 
Each N As TreeNode In nodes
            Dim 
list As New List(Of String)
            list.
Add("First value of " N.Name)
            list.
Add("Second value of " N.Name)
            list.
Add("Third value of " N.Name)
            
treeValues.Add(N.Name, list.ToArray())
            
FillTreeValues(N.Nodes)
        
Next
    End Sub

    
Private Sub TreeView1_AfterSelect(ByVal sender As System.ObjectByVal e As System.Windows.Forms.TreeViewEventArgsHandles TreeView1.AfterSelect
        ListView1
.Items.Clear()
        
Dim vals As String() = treeValues(e.Node.Name)
        For 
As Integer 0 To vals.Length 1
            ListView1
.Items.Add(vals(I))
        
Next
    End Sub

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        
If TreeView1.SelectedNode.Index > -1 Then
            Dim items 
As New List(Of String)(treeValues.Item(TreeView1.SelectedNode.Name))
            
items.Add(TextBox1.Text)
            
treeValues.Item(TreeView1.SelectedNode.Name) = items.ToArray()
            
ListView1.Items.Add(TextBox1.Text)
        
End If
    
End Sub

    
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        
If TreeView1.SelectedNode.Index > -1 Then
            
If ListView1.SelectedItems.Count 0 Then
                Dim items 
As New List(Of String)(treeValues.Item(TreeView1.SelectedNode.Name))
                
items.RemoveAt(ListView1.SelectedItems(0).Index)
                
treeValues.Item(TreeView1.SelectedNode.Name) = items.ToArray()
                
ListView1.Items.RemoveAt(ListView1.SelectedItems(0).Index)
            
End If
        
End If
    
End Sub
End 
Class 

بخصوص إضافة Node تستخدم هذا الكود:
PHP كود :
TreeView1.Nodes.Add("نص النود"
و لإزالة Node تستخدم هذا الكود:
PHP كود :
TreeView1.Nodes.RemoveAt(0
حيث 0 هو ترتيب الـNode في الـTreeView
أما لإزالة Node من داخل Node من داخل الـTreeView تستخدم هذا الكود:
PHP كود :
TreeView1.Nodes(0).Nodes.RemoveAt(00
حيث 0 هو ترتيب الـNode في الـTreeView و 00 هو ترتيب الـNode التي بداخل Node آخر داخل الـTreeView
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة هامة جدا ashfgsm 18 260 منذ 2 ساعة مضت
آخر رد: WAEL ABED
  [VB.NET] ممكن طلب بسيط MOSTAFA.KAMEL 4 88 14-10-17, 05:36 AM
آخر رد: حريف برمجة
  [VB.NET] مساعدة بخصوص mysql MOSTAFA.KAMEL 0 44 06-10-17, 07:30 AM
آخر رد: MOSTAFA.KAMEL
  مساعدة في حفظ ماهو مكتوب في textbox اوتوماتيكي trakktour 1 83 01-10-17, 10:30 PM
آخر رد: Amir_alzubidy
  مساعدة في الكود hikmat 0 39 27-09-17, 10:08 AM
آخر رد: hikmat
  [VB.NET] ممكن تعديل الكود التالي D-Z 0 65 21-09-17, 06:34 PM
آخر رد: D-Z
  [كود] مساعدة في عمل عضوية مميزة عبدالرحمن المكاوي 0 47 21-09-17, 05:51 PM
آخر رد: عبدالرحمن المكاوي
  [سؤال] ممكن طريقة عمل برنامج وارسال التحديثات اليه عندما يتوفر تحديث Mina Botros 3 125 20-09-17, 01:11 AM
آخر رد: سعود الشامان
  مساعدة safalo 3 82 19-09-17, 03:46 PM
آخر رد: أبو نوره
  [نقاش] مساعدة من حضراتكم salma.eg 1 62 15-09-17, 09:45 PM
آخر رد: أبو نوره

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم