06-10-12, 08:54 PM
كاتب الموضوع : 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