تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[عنوان معدل]كيفية البحث في أداة العرض الشجري
#1
السلام عليكم جميعاً اخوانى الاعزاء
ارجو المساعدة
اقوم بعمل برنامج محاسبى واستخدمت اداه treeview وقمت باضافة textbox1 واضافة button1 واحتاج الان الى كود يجعلنى حينما اضغط على الزر يبحث عن المكتوب فى مربع النص فى اداه العرض الشجرى فما هو هذا الكود ؟؟
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

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

الرد }}}}
تم الشكر بواسطة:
#3
[COLOR="#800080"]السلام عليكم

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

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


نعم اخى الكريم احتاج كود للذهاب الى اول نتيجة تطابق البحث
الرد }}}}
تم الشكر بواسطة:
#5
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

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#6

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


































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

بالتوفيق

بارك الله فيك اخى الكريم لكن للاسف الكود لم يعمل Sad
الرد }}}}
تم الشكر بواسطة:
#9
لو من الممكن رفع مثال اكون شاكر لك اخى الكريم Sooriaty03
الرد }}}}
تم الشكر بواسطة:
#10
elmobde3 كتب :لو من الممكن رفع مثال اكون شاكر لك اخى الكريم Sooriaty03

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

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

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

بالتوفيق


الملفات المرفقة
.zip   SearchInTreeNode.zip (الحجم : 53.65 ك ب / التحميلات : 43)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف يتم البحث فى ليست فيو موجودة فى فورم اخر الماجيك مسعد 13 186 أمس, 02:34 AM
آخر رد: مساعدة
  [VB.NET] كيفية برمجه serail port engmedomed@gmail.com 2 72 12-01-17, 03:50 AM
آخر رد: Basil Abdallah
  كيفية تغير رسائل الخطأ؟ noway 4 144 12-01-17, 02:05 AM
آخر رد: يسرى7
  زيادة السنين في أداة التاريخ DateTimePicker أسامة السالمي 2 107 06-01-17, 09:12 PM
آخر رد: أسامة السالمي
  كود تحريك نص في شريط عنوان النافذة atefkhalf2004 2 1,850 05-01-17, 11:47 PM
آخر رد: asdsoft
  كيفية استخراج ربح من المبيعات عندما تكون سعر شراء المادة مختلة في كل مرة max_1978 3 103 05-01-17, 12:40 AM
آخر رد: أبو عمر
  [VB.NET] كيفية رفع صوره مع السؤال في المنتدي engmedomed@gmail.com 3 103 02-01-17, 08:24 PM
آخر رد: Basil Abdallah
  كيفية التعديل على كود HTML ومن ثم عرضه في WebBrowser bidaya 5 130 24-12-16, 03:47 PM
آخر رد: ابو ليلى
  كيفية نقل بيانات من داتاجريد في فورم الى داتاجريد في فورم اخر قناص المدينة 0 79 22-12-16, 06:52 PM
آخر رد: قناص المدينة
  [سؤال] كود البحث عن طريق اسم naden 2 163 15-12-16, 02:33 AM
آخر رد: naden

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


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