تقييم الموضوع :
  • 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
رائع جدا .... وبارك الله فيك
الرد
تم الشكر بواسطة:
#6
جزاك الله خير,,,,,
الرد
تم الشكر بواسطة:
#7
رائع جداً تم الاستفادة منه

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink كود صغير يقوم بقراءه النص من التكست بوكس برير مسبل 3 1,603 08-08-18, 03:55 PM
آخر رد: alsouf
  السلام عليكم اريد كود لما تكون موجوده التكست بوكس ندير فوقها بطم وفي التنفيذ تطلعلي nosa 0 183 11-05-18, 09:36 PM
آخر رد: nosa
  كود يسمح لك بكتابة احرف فقط في التيكست بوكس honest 16 4,380 20-01-18, 10:55 AM
آخر رد: YousefOkasha
  [VB.NET] مطلوب كودات تصدير البيانات الناتجه من تكس بوكس الى الاكسل abdulla omran 0 327 18-11-17, 10:26 PM
آخر رد: abdulla omran
  تكست بوكس يسمح بإدخال أرقام فقط أو حروف فقط silverlight 1 438 15-10-17, 10:02 AM
آخر رد: سعود الشامان
  [كود] تغيير حجم التيكست بوكس عند الكتابة فيه سعود الشامان 1 498 02-10-17, 09:16 AM
آخر رد: ابو روضة
Thumbs Up [سؤال] اريد كود لاستيراد فورم ووضع به كلمة سر Mina Botros 2 471 05-07-17, 02:16 AM
آخر رد: Mina Botros
Wink [سؤال] اريد كود لوضع للبرنامج اكثر من كلمة مرور واحدة Mina Botros 1 355 04-07-17, 10:40 PM
آخر رد: 26094
Wink [كود] فتح ملف نصي في التكست بوكس [ Ebram Nagy ] 2 828 27-08-16, 10:39 PM
آخر رد: [ Ebram Nagy ]
  التكست بوكس الشاغل تفكيرنا bassamreg 5 1,108 03-07-16, 07:01 AM
آخر رد: Apollondz

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


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