تقييم الموضوع :
  • 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] كود البحث لا يظهر اي نتائج ولا اي اخطاء Asmaa adel 1 46 03-12-16, 09:41 AM
آخر رد: ابراهيم النعيمي
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 38 29-11-16, 01:37 AM
آخر رد: hglogtd
  البحث مثل جوجل Samosoft 4 59 29-11-16, 01:35 AM
آخر رد: Samosoft
  كيفية تخفيض مستوي الامان في الاكسل atefkhalf2004 7 81 28-11-16, 06:48 PM
آخر رد: atefkhalf2004
  خطأ عند البحث khalid475 1 45 28-11-16, 06:23 PM
آخر رد: khalid475
  [سؤال] كود البحث عن طريق اسم naden 1 68 28-11-16, 02:05 PM
آخر رد: Adrees
Question [VB.NET] كيفية ربط أى حقل IFieldObject بعمود بجدول برمجياً Crystal Reports newvbdev 4 111 23-11-16, 08:51 PM
آخر رد: newvbdev
  [VB.NET] مشكلة في كود البحث khalid475 14 217 11-11-16, 07:52 PM
آخر رد: khalid475
  كيفية تغير رسائل الخطأ؟ noway 3 70 11-11-16, 05:37 PM
آخر رد: ممدوح
  [VB.NET] كيفية طباعة شهادات بصيغة PDF Programmer_2017 9 246 10-11-16, 10:02 PM
آخر رد: Programmer_2017

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


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