اضفت زر بحث عن كلمة في مربع النص
ليكون كود البحث كامل فالمثال تنقصه جزئية بسيطة وهي عمل سكرول لنتيجة البحث سواءا اعلى او اسفل:
PHP كود :
txtlines.ScrollToCaret()
والتالي كل كود البحث مع الجزئية الناقصة:
PHP كود :
txtlines.Focus()
txtlines.DeselectAll()
Dim a As String = InputBox("type a thing")
If a.Trim = "" Then Exit Sub
For Each line As String In txtlines.Lines
If line = a Then
txtlines.SelectionStart = txtlines.Text.IndexOf(a)
txtlines.SelectionLength = a.Length
txtlines.ScrollToCaret()
Exit Sub
End If
Next
MsgBox("NOT-Found", MsgBoxStyle.Critical, "")
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
