تقييم الموضوع :
  • 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 ك ب / التحميلات : 45)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في البحث بالتاريخ ____وايضا ____ بين تاريخين khaled12345 0 14 منذ 6 ساعة مضت
آخر رد: khaled12345
  كيفية حفظ قيمة Label في فيجوال دوت نت 2010 عامر الجبوري 4 36 منذ 6 ساعة مضت
آخر رد: عامر الجبوري
  البحث باستخدام Rich Box khaled12345 9 91 أمس, 02:34 PM
آخر رد: khaled12345
  البحث في قاعدة بيانات اكسس hatem555 6 106 أمس, 02:53 AM
آخر رد: hatem555
  البحث او الفلتر باكثر من اسم من داخل عمود Name khaled12345 2 62 21-05-17, 08:18 AM
آخر رد: khaled12345
  عملية البحث بين تاريخين khaled12345 8 109 19-05-17, 11:28 PM
آخر رد: khaled12345
  مشكلة في كود البحث فرجاء المساعدة khaled12345 5 84 19-05-17, 03:50 PM
آخر رد: khaled12345
  كيفية طباعة فاتورة مبيعات باستخدام الطابعات الصغيرة noway 0 44 19-05-17, 09:55 AM
آخر رد: noway
  كيفية انشاء الباركود المتألق9 2 46 18-05-17, 10:33 PM
آخر رد: المتألق9
Exclamation [سؤال] كيفية التعامل مع الdataset في الوضع المنفصل في الفيجوال البيسك 2010 moh_g 4 108 16-05-17, 06:50 PM
آخر رد: moh_g

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


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