تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معلومة ::: Search In TextBox
#1
ماذا لو أردت أن تبحث عن نص قى مربع نص

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


نضع زر أمر

نضع عدد 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
متغيب قليلاً للدراسة Smile
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معلومة ::: ListBox Blue Sky 14 2,400 14-11-16, 11:32 PM
آخر رد: فارس جراح
  [مقال] إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox sooriaty03 9 2,889 11-02-16, 10:47 PM
آخر رد: العواد الصغير
  معلومة مهمه فى المصفوفات ali.alfoly 2 792 30-08-13, 02:25 AM
آخر رد: ali.alfoly
  من المنتدى القديم - معلومة ::: ProgressBar ( للاخ BADRMEDIA ) المبرمج علي نوري 2 1,266 23-08-13, 11:17 PM
آخر رد: nin9e
  معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! أسامة أحمد 3 1,014 16-12-12, 06:25 PM
آخر رد: 3amo
  من المنتدى القديم - معلومة ::: CheckBox ( للاخ BADRMEDIA ) المبرمج علي نوري 1 571 30-11-12, 05:54 PM
آخر رد: مبرمج أوتار
  معلومة :: الحل لمشكلة الخطأ في الكود For Each i As Button In Me.Controls Aly El-Haddad 2 679 10-11-12, 09:15 PM
آخر رد: Mr. DotNet
  معلومة : Partial Class RaggiTech 1 543 06-10-12, 11:03 PM
آخر رد: RaggiTech
  معلومة : TryCast مهمة RaggiTech 0 461 06-10-12, 11:02 PM
آخر رد: RaggiTech
  معلومة : XML Comments مهمة RaggiTech 1 423 06-10-12, 11:01 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم