[elmobde3]

السلام عليكم جميعاً اخوانى الاعزاء
ارجو المساعدة
اقوم بعمل برنامج محاسبى واستخدمت اداه treeview وقمت باضافة textbox1 واضافة button1 واحتاج الان الى كود يجعلنى حينما اضغط على الزر يبحث عن المكتوب فى مربع النص فى اداه العرض الشجرى فما هو هذا الكود ؟؟

[sooriaty03]

السلام عليكم ورحمة الله وبركاته

أخي الكريم
كيف تريد عرض النتائج؟
هل ستعرضها في ListBox؟
أم أنك تريد الذهاب إلى أول نتيجة تطابق البحث؟

[Sajad]

[COLOR="#800080"]السلام عليكم

تم تعديل العنوان ,برجاء التقيد بقوانين المنتدى بعدم كتابة كلمات مثل (رجاءا ,مساعدة, .....) ,وكتابة عنوان يدل على المحتوي وإلا تعرض الموضوع للحذف بغض النظر عن محتواه[/COLOR]

[elmobde3]

sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته

أخي الكريم
كيف تريد عرض النتائج؟
هل ستعرضها في ListBox؟
أم أنك تريد الذهاب إلى أول نتيجة تطابق البحث؟

نعم اخى الكريم احتاج كود للذهاب الى اول نتيجة تطابق البحث

[sooriaty03]

elmobde3 كتب :نعم اخى الكريم احتاج كود للذهاب الى اول نتيجة تطابق البحث

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

كود :

Public Class Form1
    'عرفنا قائمة لحفظ جميع العقد الموجودة داخل أداة العرض
    Dim NodeList As New List(Of TreeNode)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'حلقة تكرارية لعملية البحث
        For Each I As TreeNode In NodeList
            If I.Text.Contains(TextBox1.Text) Then
                TreeView1.SelectedNode = I
                Exit For
            End If
        Next
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'سنقوم بإضافة جميع العقد الرئيسية داخل قائمة
        For Each I As TreeNode In TreeView1.Nodes
            NodeList.Add(I)
        Next
        'سنقوم بإضافة جميع العقد الفرعية داخل قائمة
        Dim Index As Integer = 0
        Do Until Index = NodeList.Count
            For Each I As TreeNode In NodeList.Item(Index).Nodes
                NodeList.Add(I)
            Next
            Index += 1
        Loop

    End Sub
End Class

بالتوفيق

[ابراهيم]

انتا محتاج تعمل لوب للبحث داخل التري وكمان لوب جوه كل عضو بيحتوى على اعضاء تانيه داخل الترى
وده هيكون بالشكل ده
Dim no As TreeNode
For Each no In TreeView1.Node
If no.Text = Textbox1.Text then MsgBox("Exist") :Exit sub




If no.Nodes.Count > 0 Then
Dim Cnod As TreeNode
For Each cnod In no.Nodes
If Cnod.Text = Textbox1.Text then MsgBox("Exist") :Exit sub
Next
End If





Next

[sooriaty03]

ابراهيم كتب :

انتا محتاج تعمل لوب للبحث داخل التري وكمان لوب جوه كل عضو بيحتوى على اعضاء تانيه داخل الترى
وده هيكون بالشكل ده
Dim no As TreeNode
For Each no In TreeView1.Node
If no.Text = Textbox1.Text then MsgBox("Exist") :Exit sub
If no.Nodes.Count > 0 Then
Dim Cnod As TreeNode
For Each cnod In no.Nodes
If Cnod.Text = Textbox1.Text then MsgBox("Exist") :Exit sub
Next
End If
Next

[COLOR="#008000"]
السلام عليكم ورحمة الله وبركاته

بارك الله فيك أخي الكريم
ولكن هناك ملاحظة صغيرة على الكود
هو أنه سيبحث في الرتبة الأولى والثانية فقط
فماذا لو كان في الأداة رتبة ثالثة ورابعة وخامسة ... إلخ
فالكود بحاجة إلى تعديل ليشمل جميع الرتب الموجودة [/COLOR]

[elmobde3]

sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

كود :

Public Class Form1
    'عرفنا قائمة لحفظ جميع العقد الموجودة داخل أداة العرض
    Dim NodeList As New List(Of TreeNode)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'حلقة تكرارية لعملية البحث
        For Each I As TreeNode In NodeList
            If I.Text.Contains(TextBox1.Text) Then
                TreeView1.SelectedNode = I
                Exit For
            End If
        Next
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'سنقوم بإضافة جميع العقد الرئيسية داخل قائمة
        For Each I As TreeNode In TreeView1.Nodes
            NodeList.Add(I)
        Next
        'سنقوم بإضافة جميع العقد الفرعية داخل قائمة
        Dim Index As Integer = 0
        Do Until Index = NodeList.Count
            For Each I As TreeNode In NodeList.Item(Index).Nodes
                NodeList.Add(I)
            Next
            Index += 1
        Loop

    End Sub
End Class

بالتوفيق

بارك الله فيك اخى الكريم لكن للاسف الكود لم يعمل

[elmobde3]

لو من الممكن رفع مثال اكون شاكر لك اخى الكريم Sooriaty03

[sooriaty03]

elmobde3 كتب :لو من الممكن رفع مثال اكون شاكر لك اخى الكريم Sooriaty03

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

المثال في المرفقات

بالتوفيق