[a.adhami]

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

 

[reza13812]

سلام ؛


تو کد زیر 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