29-04-16, 11:50 AM
السلام عليكم كيف حالكم يا شباب
هذا كود سهل ومفيد للبحث عن كلمة في التكست بوكس
ارجوا ان ينال اعجابكم ولا تنسوا زر الشكر والتقييم
هذا كود سهل ومفيد للبحث عن كلمة في التكست بوكس
كود :
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ارجوا ان ينال اعجابكم ولا تنسوا زر الشكر والتقييم
___________________________
___________________________
