منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

نضع زر أمر

نضع عدد 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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Blue Sky