منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(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

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

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

مودتي

(14-02-19, 06:32 AM)اباذر كتب : [ -> ]

princelovelorn

اخي الغالي

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

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

مودتي