منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

ابراهيم كتب :

انتا محتاج تعمل لوب للبحث داخل التري وكمان لوب جوه كل عضو بيحتوى على اعضاء تانيه داخل الترى
وده هيكون بالشكل ده
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 كتب :السلام عليكم ورحمة الله وبركاته

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

كود :

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