منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
معلومة ::: 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=5279)

معلومة ::: Search In TextBox - RaggiTech - 06-10-12

كاتب الموضوع : BADRMEDIA



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

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


نضع زر أمر

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

معلومة ::: Search In TextBox - RaggiTech - 06-10-12

فى المرفقات مثال على الشرح