[mero5000]

السلام عليكم

انا معى كود بحث فى الريتش بوكس وبعد البحث يحدد السطر كامل بنجاح

اريد كود اخر لأنى اى معى بيعمل مشكلة ما عند تنفيذ امر اخر وهو ::--

عند البحث فى عن كلمة بداخل السطر وكانت هذه الكلمة فى اخر سطر فى الريتش بوكس ينتقل الى الريتش بوكس ويحدد السطر ويمسحة مع اول عملية تالية
والكود التالى هو فوكس لأداة نص اخرى فبالتالى ينتقل الى الريتش اولا ويمسح السطر المحدد فى البحث

هذا كودى للافادة ويعمل دون اى مشاكل لكنى اريد غيره اذا سمحتم

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 


شكرا جزيلا