[اباذر]

(14-02-19, 06:17 AM)princelovelorn كتب :

وعليكم السلام ورحمة الله وبركاته

ضع الكود التالي في الزر الأول show في الفورم الأول

كود :

Form2.Show()

وضع الكود التالي في الزر البحث في الفورم الثاني

كود :

 Dim txt As String = TextBox1.Text
      Dim alltxt As String = Form1.RichTextBox1.Text
      If alltxt.Contains(txt) Then
          MsgBox("النص موجود")
      Else
          MsgBox("النص غير موجود")
      End If

المثال في المرفقات

تمنياتي لك بالتوفيق والنجاح

princelovelorn

اخي الغالي

بارك الله بك على المجهود الجميل و الرائع

وفقك الله بكل مجالات الحياة

مودتي