[Blue Sky]

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

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


نضع زر أمر

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