شاطر
اذهب الى الأسفل
عدد المساهمات : 134
تاريخ التسجيل : 08/10/2012
معاينة صفحة البيانات الشخصي للعضو

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
الرجوع الى أعلى الصفحة
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى