تقييم الموضوع :
  • 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 14 3,288 20-09-17, 12:32 AM
آخر رد: ابوثامر الحربي
  [كود] تغيير حجم التيكست بوكس عند الكتابة فيه سعود الشامان 0 66 07-08-17, 03:48 AM
آخر رد: سعود الشامان
Thumbs Up [سؤال] اريد كود لاستيراد فورم ووضع به كلمة سر Mina Botros 2 142 05-07-17, 02:16 AM
آخر رد: Mina Botros
Wink [سؤال] اريد كود لوضع للبرنامج اكثر من كلمة مرور واحدة Mina Botros 1 114 04-07-17, 10:40 PM
آخر رد: 26094
Wink كود صغير يقوم بقراءه النص من التكست بوكس برير مسبل 2 1,114 25-01-17, 06:53 PM
آخر رد: ridha69
Wink [كود] فتح ملف نصي في التكست بوكس [ Ebram Nagy ] 2 476 27-08-16, 10:39 PM
آخر رد: [ Ebram Nagy ]
  التكست بوكس الشاغل تفكيرنا bassamreg 5 710 03-07-16, 07:01 AM
آخر رد: Apollondz
  [كود] هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم احمد عبد الحكيم 4 1,534 30-06-16, 07:17 PM
آخر رد: aliday03
  كود بسيط لتغيير لون النص والخلفية لكل ليبل وا تيكست بوكس في الفرم honest 3 907 28-05-16, 11:58 PM
آخر رد: CLARO
  كود مختصر وبسيط لحفظ محتوى تيكست بوكس في مستند نصي honest 3 563 28-05-16, 11:57 PM
آخر رد: CLARO

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


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