+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: سرچ در ویژال بیسیک (/showthread.php?tid=3290)
سرچ در ویژال بیسیک - a.adhami - 07-22-2013
سلام,
کسی میتونه به من کمک کنه؟
یک تکست باکس داریم که مولتی لاین هست.بعد کلی کد نوشته شده در هر خط بعد یک تکست باکس دیگرهم داریم که در آن یکی از آن کد ها را بنویسیم پیدا کنه اگه پیدا شد مسیج باکس بگه پیدا شد اگر نشد بگه پیدا نشد
RE: سرچ در ویژال بیسیک - reza13812 - 07-24-2013
سلام ؛
تو کد زیر 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