[Salih Mohammad]

(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

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

---

مشكوووووووور أخي الكريم