تقييم الموضوع :
  • 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
مشكورورورورورورور على الموضوع الرائئئععع
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink [كود] فتح ملف نصي في التكست بوكس [ Ebram Nagy ] 2 152 27-08-16, 10:39 PM
آخر رد: [ Ebram Nagy ]
  التكست بوكس الشاغل تفكيرنا bassamreg 5 335 03-07-16, 07:01 AM
آخر رد: Apollondz
  [كود] هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم احمد عبد الحكيم 4 1,175 30-06-16, 07:17 PM
آخر رد: aliday03
  كود يسمح لك بكتابة احرف فقط في التيكست بوكس honest 10 2,044 29-05-16, 12:00 AM
آخر رد: CLARO
  كود بسيط لتغيير لون النص والخلفية لكل ليبل وا تيكست بوكس في الفرم honest 3 369 28-05-16, 11:58 PM
آخر رد: CLARO
  كود مختصر وبسيط لحفظ محتوى تيكست بوكس في مستند نصي honest 3 266 28-05-16, 11:57 PM
آخر رد: CLARO
  [سؤال] كود لو سمحتم قروب بوكس مخفية bidaya 4 310 06-05-16, 04:46 PM
آخر رد: bidaya
  مساعده بشأن الرابط بين الكومبوبوكس واللست بوكس hishamdaz 1 310 23-03-16, 03:00 AM
آخر رد: farahabdalrahmanfarah
Information [كود] مطلوب كود لجعل التكست بوكس يكتب عربي فقط Mostafa Yousry 2 513 07-12-15, 05:53 AM
آخر رد: Mostafa Yousry
  [سؤال] التعامل مع تكست بوكس moha11 5 810 12-09-15, 10:05 AM
آخر رد: moha11

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


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