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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود يسمح لك بكتابة احرف فقط في التيكست بوكس honest 13 2,989 25-05-17, 11:02 AM
آخر رد: Buseiligm
Wink كود صغير يقوم بقراءه النص من التكست بوكس برير مسبل 2 1,003 25-01-17, 06:53 PM
آخر رد: ridha69
Wink [كود] فتح ملف نصي في التكست بوكس [ Ebram Nagy ] 2 389 27-08-16, 10:39 PM
آخر رد: [ Ebram Nagy ]
  التكست بوكس الشاغل تفكيرنا bassamreg 5 649 03-07-16, 07:01 AM
آخر رد: Apollondz
  [كود] هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم احمد عبد الحكيم 4 1,464 30-06-16, 07:17 PM
آخر رد: aliday03
  كود بسيط لتغيير لون النص والخلفية لكل ليبل وا تيكست بوكس في الفرم honest 3 822 28-05-16, 11:58 PM
آخر رد: CLARO
  كود مختصر وبسيط لحفظ محتوى تيكست بوكس في مستند نصي honest 3 473 28-05-16, 11:57 PM
آخر رد: CLARO
  [سؤال] كود لو سمحتم قروب بوكس مخفية bidaya 4 473 06-05-16, 04:46 PM
آخر رد: bidaya
  مساعده بشأن الرابط بين الكومبوبوكس واللست بوكس hishamdaz 1 429 23-03-16, 03:00 AM
آخر رد: farahabdalrahmanfarah
Information [كود] مطلوب كود لجعل التكست بوكس يكتب عربي فقط Mostafa Yousry 2 817 07-12-15, 05:53 AM
آخر رد: Mostafa Yousry

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


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