Parsi Coders

سلام,
کسی میتونه به من کمک کنه؟
یک تکست باکس داریم که مولتی لاین هست.بعد کلی کد نوشته شده در هر خط بعد یک تکست باکس دیگرهم داریم که در آن یکی از آن کد ها را بنویسیم پیدا کنه اگه پیدا شد مسیج باکس بگه پیدا شد اگر نشد بگه پیدا نشد

سلام ؛

تو کد زیر text1.text محتوای شماست (تکست باکس مولتی لاین) و text2.text اون کلمه ای که دنبالی هستی!!!

کد:
Private Sub Command1_Click()

   If InStr(1, Text1.Text, Text2.Text, vbTextCompare) > 0 Then

       MsgBox "yas"

   Else

       MsgBox "no"

   End If

End Sub

a.adhami

reza13812