منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال في التري فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال في التري فيو (/showthread.php?tid=2760)

الصفحات: 1 2


سؤال في التري فيو - رحوووم - 04-05-14

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

أإسـ عٍ ـد الله أإأوٍقـآتَكُـم بكُـل خَ ـيرٍ

HeartHeartHeart

ڪيــف حالڪــم أعضــاء وزوار منٺديــات ( فيجوال بيسك لكل العرب )
عسآڪــمْ بخ‘ـيــر ۋمآٺشڪــۋن م،ن شيـ !؟
WinkWinkWink

عندي سؤال بسيط :Big Grin

أنا عندي فورم فيه تري فيو يستقبل البيانات من الأكسس

لكن أريد أن أعمل زر بحث في نفس الفورم بحيث إذا كتبت أي إسم من الموجود في النود تفتح فورم ثاني .... وشكرااا



RE: سؤال في التري فيو - Ali Wisam - 04-05-14

اتصور المسألة بسيطة .. اذا كنت تريد تبحث عن نود له نفس النص بالضبط فحيكون الكود كالاتي ..
كود :
For Each x As TreeNode In TreeView1.Nodes
            If x.Text.ToLower = "النص الذي تود البحث عنه".ToLower Then
                MsgBox(x.Index.ToString)
                'او قم بايِ عملية
            End If
        Next
و اذا اردت البحث و لا مشكلةَ في ان يكون النص الذي تود البحث عنه جزءًا من النص .. كالاتي ...
كود :
For Each x As TreeNode In TreeView1.Nodes
            If x.Text.ToLower.Contains("النص الذي تود البحث عنه".ToLower) Then
                MsgBox(x.Index.ToString)
                'او قم بايِ عملية
            End If
        Next
و اذا اردت البحث بحيث تكون النتيجة متضمنةً لاي كلمة .. فكالاتي ..
كود :
For Each x As TreeNode In TreeView1.Nodes
            If "النص الذي تود البحث عنه".Contains(" ") Then
                For Each word As String In "النص الذي تود البحث عنه".Split()
                    If x.Text.ToLower.Contains(word.ToLower) Then
                        MsgBox(x.Index.ToString)
                        'او قم بعملية اخرى ..
                    End If
                Next
            End If
        Next



RE: سؤال في التري فيو - رحوووم - 04-05-14



بارك الله فيك أخي Ali Wisam

يمكن أنا ما وضحت طلبي زين :

أنا أبغ لمن أكتب في البحث أي إسم من أسماء إلي في النود >>> تفتح فورم ثاني*جديد* ويعرض فيه إسم النود إلي كتبته في التكست بوكس

ممكن تسوي في هذا المثال يمكن أقرب شي شوفتو >>> http://vb4arb.com/vb/thread-1369.html



RE: سؤال في التري فيو - Ali Wisam - 05-05-14

بسيطة .. بدال MsgBox(x.Index) يكون الكود :
كود :
Form2.TextBox1.Text = x.Text
هذا قصدك ؟


RE: سؤال في التري فيو - رحوووم - 05-05-14




RE: سؤال في التري فيو - Ali Wisam - 05-05-14

اي اخي فاهمك .. و كتبتلك الكود ..
كل ما عليك انك تبحث بكل نود .. اذا كان البحث صحيح .. يتم تحويلك الى فورم ثاني فيه تكست بوكس ينكتب فيه الاسم الي في النود ..
اولا اصنع فورم جديد سميه Form2 و ضع فيه تكست بوكس سميه TextBox1

الان في كود الزر في الفورم الاول ( زر البحث ) .. اكتب الكود التالي ..

كود :
For Each x As TreeNode In TreeView1.Nodes(0).Nodes(0).Nodes
            If x.Text.ToLower = TextBox1.Text.ToLower Then
                Form2.TextBox1.Text = x.Text
                Form2.Show()
                Exit For
            End If
        Next



RE: سؤال في التري فيو - رحوووم - 05-05-14

بارك الله فيك

بس الكود هذا راح يعطيني بس إسم محمد6 أما لو بحثت عن أسماء أخرى في النود فلن يعطيني !!!



RE: سؤال في التري فيو - رحوووم - 05-05-14

أنا أريد أن يعطيني أي إسم في النود أما في غير النود فلا يعطيني

وشكراااBig Grin



RE: سؤال في التري فيو - Ali Wisam - 05-05-14

مو واضح قصدك .. انتَ تبحث عن محمد6 .. البرنامج يعطيك الاسم في فورم اخر .. هذا ما اردته ..
بالمناسبة .. في اخر كود البرنامج يعطيك نتيجة بحث مطابقة تماما .. لكن اذا اخذنا الاساليب الي ذكرتها في اول رد .. احتمال في البعض تظهر اكثر من نتيجة
في هذي الحالة عليك ان تصنع متغير من نوع String مثلا و تضع فيه النتائج المختلفة .. او تصنع ListBox مثلا للنتائج .و هكذا


RE: سؤال في التري فيو - Ali Wisam - 05-05-14

قصدك انه يعطيك جميع الاسماء الموجودة في النود ؟ .. على هذه الحالة لن تحتاج عملية البحث اصلا ! .. او انك تقصد تبحث عن نود معين .. مثلا تبحث عن الموظفين .. و يعطيك جميع النودز الموجودة في نود الموظفين ؟