Search In TextBox vb.net

الأحد أكتوبر 14, 2012 3:04 pm

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

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

نضع زر أمر

نضع عدد 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 تقوم بعمل البحث

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

باستخدام SelectionStart و SelectionLength

الكود:

If index < 0 Then Exit Sub TextBox2.Focus() TextBox2.SelectionStart = index TextBox2.SelectionLength = SearchString.Length