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

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

معلومة ::: Search In TextBox - Blue Sky - 30-09-12

ماذا لو أردت أن تبحث عن نص قى مربع نص

لنقوم بهذا المثال


نضع زر أمر

نضع عدد 2 مربع نص



نضع هذا الكود تحت زر الأمر

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Dim index As Integer
        Dim SearchString As String


        SearchString = TextBox1.Text


        index = TextBox2.Text.IndexOf(SearchString)


        If index < 0 Then Exit Sub


        TextBox2.Focus()
        TextBox2.SelectionStart = index
        TextBox2.SelectionLength = SearchString.Length


End Sub


نشرح الكود


نعرف متغيرين - واحد نصى والأخر رقمى

النصي : يحمل النص المراد البحث عنه
الرقمي : يحمل قيمة نتائج البحث

كود :
Dim index As Integer
Dim SearchString As String


'  المتغير النصي يحمل قيمة النص المراد البث عنه


SearchString = TextBox1.Text


'المتغير Index   يساوي نتيجة الحصول على البحث  
' الدالة IndexOf   تقوم بعمل البحث


index = TextBox2.Text.IndexOf(SearchString)

بعد ذلك نرسل المؤشر للمربع الثاني
ونبدأ بتحديد النص الذى وجد

باستخدام SelectionStart و SelectionLength


كود :
If index < 0 Then Exit Sub


TextBox2.Focus()
TextBox2.SelectionStart = index
TextBox2.SelectionLength = SearchString.Length