تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معلومة ::: Search In TextBox
#1
كاتب الموضوع : 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



}}}
تم الشكر بواسطة:
#2
فى المرفقات مثال على الشرح


الملفات المرفقة
.rar   SEARCHTEXT.rar (الحجم : 46.72 ك ب / التحميلات : 80)
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! أسامة أحمد 4 6,096 18-07-21, 02:53 AM
آخر رد: kebboud
  [مقال] إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox sooriaty03 10 12,033 21-03-21, 09:53 PM
آخر رد: عبد الهادي بهاب
Exclamation [VB.NET] التحقق من المدخلات النصية Textbox Validation - لبرنامج أكثر امانا Anas Mahmoud 1 4,534 23-08-20, 10:11 AM
آخر رد: Anas Mahmoud
Exclamation [VB.NET] التعامل مع ال CMD عن طريق ال TextBox YousefOkasha 5 5,000 02-06-18, 09:34 PM
آخر رد: YousefOkasha
  معلومة ::: ListBox Blue Sky 14 22,012 14-11-16, 11:32 PM
آخر رد: فارس جراح
  معلومة مهمه فى المصفوفات ali.alfoly 2 3,728 30-08-13, 02:25 AM
آخر رد: ali.alfoly
  من المنتدى القديم - معلومة ::: ProgressBar ( للاخ BADRMEDIA ) المبرمج علي نوري 2 3,823 23-08-13, 11:17 PM
آخر رد: nin9e
  من المنتدى القديم - معلومة ::: CheckBox ( للاخ BADRMEDIA ) المبرمج علي نوري 1 2,916 30-11-12, 05:54 PM
آخر رد: مبرمج أوتار
  معلومة :: الحل لمشكلة الخطأ في الكود For Each i As Button In Me.Controls Aly El-Haddad 2 3,563 10-11-12, 09:15 PM
آخر رد: Mr. DotNet
  معلومة : Partial Class RaggiTech 1 2,668 06-10-12, 11:03 PM
آخر رد: RaggiTech

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


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