(15-07-18, 08:45 PM)elgokr كتب :

تفضل اخى الكود

سيقوم بعمل البحث على النص

واذا تم ايجاد النص سيتم تظليله فى textbox1 وسيتم نسخ جملة البحث فى textbox2

كود :

       Dim xx As String
       xx = InputBox("ادخل النص المطلوب البحث عنه:")
       Dim a As Integer
       a = InStr(1, LCase$(TextBox1.Text), LCase$(xx))
       If a > 0 Then
           TextBox1.SetFocus()
           TextBox1.SelStart = a - 1
           TextBox1.SelLength = Len(xx)
           TextBox2.Text = xx
       Else
           MsgBox("لم يتم ايجاد النص المطلوب.")
       End If

تحياتى لك

وتمنياتى لك التوفيق