+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيفبه (/showthread.php?tid=37122)
كيفبه - حسن الجلب - 06-12-20
السلام عليكم ورحمه الله وبركاته
كيفبه بحث عن كلمه او حرف في تكست بوكس وحذفها أو التعديل عليها
وسؤال اخر ما هو اسم اداه عرض البوم صور في الديف اكسبريس وكيفيه برمجتها
ارجوا الرد علي السؤالين والسؤال الاول بالتحديد
RE: كيفبه - aldery - 06-12-20
عليكم السلام ورحمة الله وبركاته
هذا كود البحث عن كلمة أو نص محدد داخل التسكت بوكس
كود :
Private Sub FindAll(ByVal substring As String)
Dim selectionLength As Integer = substring.Length
Dim index As Integer = -1
Do
index = Me.TextBox1.Text.IndexOf(substring, index + 1)
If index <> -1 Then
Me.TextBox1.SelectionStart = index
Me.TextBox1.SelectionLength = selectionLength
If MessageBox.Show("Find next?", _
"Continue", _
MessageBoxButtons.OKCancel, _
MessageBoxIcon.Question) = Windows.Forms.DialogResult.Cancel Then
Exit Do
End If
End If
Loop Until index = -1
End Sub