+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيفيه ازاله line من سلسه نصيه (/showthread.php?tid=42259)
الصفحات:
1
2
RE: كيفيه ازاله line من سلسه نصيه - سعود - 25-08-22
اضفت زر بحث عن كلمة في مربع النص
ليكون كود البحث كامل فالمثال تنقصه جزئية بسيطة وهي عمل سكرول لنتيجة البحث سواءا اعلى او اسفل:
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, "")