28-02-17, 10:10 AM
(آخر تعديل لهذه المشاركة : 28-02-17, 10:12 AM {2} بواسطة 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
ارجوا ان ينال اعجابكم ولا تنسوا زر الشكر والتقييم
مشكوووووووور أخي الكريم

