السلام عليكم
انا معى كود بحث فى الريتش بوكس وبعد البحث يحدد السطر كامل بنجاح
اريد كود اخر لأنى اى معى بيعمل مشكلة ما عند تنفيذ امر اخر وهو ::--
عند البحث فى عن كلمة بداخل السطر وكانت هذه الكلمة فى اخر سطر فى الريتش بوكس ينتقل الى الريتش بوكس ويحدد السطر ويمسحة مع اول عملية تالية
والكود التالى هو فوكس لأداة نص اخرى فبالتالى ينتقل الى الريتش اولا ويمسح السطر المحدد فى البحث
هذا كودى للافادة ويعمل دون اى مشاكل لكنى اريد غيره اذا سمحتم
شكرا جزيلا
انا معى كود بحث فى الريتش بوكس وبعد البحث يحدد السطر كامل بنجاح
اريد كود اخر لأنى اى معى بيعمل مشكلة ما عند تنفيذ امر اخر وهو ::--
عند البحث فى عن كلمة بداخل السطر وكانت هذه الكلمة فى اخر سطر فى الريتش بوكس ينتقل الى الريتش بوكس ويحدد السطر ويمسحة مع اول عملية تالية
والكود التالى هو فوكس لأداة نص اخرى فبالتالى ينتقل الى الريتش اولا ويمسح السطر المحدد فى البحث
هذا كودى للافادة ويعمل دون اى مشاكل لكنى اريد غيره اذا سمحتم
PHP كود :
Public Sub selct()
On Error Resume Next
For i = 0 To RichTextBox1.Lines.Length - 1
If RichTextBox1.Lines(i).ToString.Contains(ComboBox3.Text) Then
Dim rrrrr As Integer = RichTextBox1.Find(RichTextBox1.Lines(i).ToString, 0, RichTextBoxFinds.None)
Do While rrrrr > -1
RichTextBox1.Select(rrrrr, RichTextBox1.Lines(i).ToString.Length)
RichTextBox1.Select()
rrrrr = RichTextBox1.Find(RichTextBox1.Lines(i).ToString, rrrrr + RichTextBox1.Lines(i).ToString.Length, RichTextBoxFinds.None)
Application.DoEvents()
Loop
End If
Application.DoEvents()
Next
شكرا جزيلا
