تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود سهل ومفيد للبحث عن كلمة في التكست بوكس
#1
السلام عليكم كيف حالكم يا شباب
هذا كود سهل ومفيد للبحث عن كلمة في التكست بوكس

كود :
Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       TextBox1.Text = "ماكل من يركب الخيل خيــال ** ولا كل خيـل تعجبك هي أصيلـــه"
   End Sub
   Private Sub Form1_MouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick
       Dim Search, Where
       Search = InputBox("ادخل النص للبحث")
       Where = InStr(TextBox1.Text, Search) ' كود ايجاد النص
       If Where Then ' إذا وجد النص,
           TextBox1.Focus()
           TextBox1.SelectionStart = Where - 1
           TextBox1.SelectionLength = Len(Search)
       Else
           MsgBox("النص غير موجود", MsgBoxStyle.Exclamation, "خطأ")

       End If
   End Sub

End Class

ارجوا ان ينال اعجابكم ولا تنسوا زر الشكر والتقييم  Smile
الرد
#2
مشكورورورورورورور على الموضوع الرائئئععع
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد
تم الشكر بواسطة:
#3
(29-04-16, 11:50 AM)honest كتب : السلام عليكم كيف حالكم يا شباب
هذا كود سهل ومفيد للبحث عن كلمة في التكست بوكس

كود :
Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       TextBox1.Text = "ماكل من يركب الخيل خيــال ** ولا كل خيـل تعجبك هي أصيلـــه"
   End Sub
   Private Sub Form1_MouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick
       Dim Search, Where
       Search = InputBox("ادخل النص للبحث")
       Where = InStr(TextBox1.Text, Search) ' كود ايجاد النص
       If Where Then ' إذا وجد النص,
           TextBox1.Focus()
           TextBox1.SelectionStart = Where - 1
           TextBox1.SelectionLength = Len(Search)
       Else
           MsgBox("النص غير موجود", MsgBoxStyle.Exclamation, "خطأ")

       End If
   End Sub

End Class

ارجوا ان ينال اعجابكم ولا تنسوا زر الشكر والتقييم  Smile

مشكوووووووور أخي الكريم Rolleyes
الرد
تم الشكر بواسطة:
#4
رائع جدا .... وبارك الله فيك
الرد
تم الشكر بواسطة:
#5
رائع جدا .... وبارك الله فيك
الرد
تم الشكر بواسطة: aleeee
#6
جزاك الله خير,,,,,
الرد
تم الشكر بواسطة:
#7
رائع جداً تم الاستفادة منه

بارك الله فيك
الرد
تم الشكر بواسطة:
#8
شيء جميل 1000 شكر لك ..
الرد
تم الشكر بواسطة:
#9
جزاك الله خيرا اخي
هل ممكن اتحافنا بكود مطور اخي
عند كتابة اول حرف في  الكمبوبوكس يبحث مباشرة باظهار قائمة منسدلة حسب البحث فقط


هل ذلك ممكن للحاجة 
ومشكورين
الرد
تم الشكر بواسطة:
#10
جزاكم الله خيرا فعلا مفيد
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] هو في كود يخليني افتح ورقه دخل تكست بوكس وشكران محمد ايمن 3 394 19-04-20, 03:07 PM
آخر رد: asemshahen5
  [كود] تحريك الكلام من عنوان الفورم و المربع+تحريك الكلمات في العنون و التكست محمد ايمن 2 368 04-03-20, 04:38 AM
آخر رد: محمد ايمن
  [كود] أبسط طريقة للبحث في الــDataTable سعود 2 828 12-08-19, 05:27 PM
آخر رد: سعود
Lightbulb [VB.NET] ازالة الصوت عند الضغظ على الانتر للانتقال بين التكست بوكس EYADISMAIL 3 946 29-07-19, 03:59 AM
آخر رد: EYADISMAIL
  كود يسمح لك بكتابة احرف فقط في التيكست بوكس honest 17 6,343 25-05-19, 04:12 PM
آخر رد: bakhcha
  كود بسيط لتغيير لون النص والخلفية لكل ليبل وا تيكست بوكس في الفرم honest 4 4,624 03-02-19, 11:07 AM
آخر رد: alshandodi
  كود للانتقال الى التكست بوكس التالي عند الضغط على زر انتر ahmadpal 4 1,910 08-12-18, 02:38 PM
آخر رد: قناص المدينة
  [كود] هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم احمد عبد الحكيم 5 3,273 11-11-18, 01:24 AM
آخر رد: عماد السيد
Wink كود صغير يقوم بقراءه النص من التكست بوكس برير مسبل 3 2,720 08-08-18, 03:55 PM
آخر رد: alsouf
  السلام عليكم اريد كود لما تكون موجوده التكست بوكس ندير فوقها بطم وفي التنفيذ تطلعلي nosa 0 812 11-05-18, 09:36 PM
آخر رد: nosa

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


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