جست و جو در تکست ها

[elmatador]

با سلام و احترام
دوستان می خوام برنامه ای با ویژوال بیسیک بنویسم که کارکردش این باشه که بیاد تایتل یا همون کپشن صفحه باز صفحه رو بگیره و اونو توی یه تکست باکس بزاره و اگر متن موجود توی تکست باکسمون برابر با کلمه مورد نظر ما باشه برنامه ما فرامینی که بهش می دیم رو ادامه بده و در صورتی که برابر نبود ادامه نده.
چطوری می تونم این کارو انجام بدم.ممنون می شم کمکم کنید و یه سورس کد بهم بدید
ممنونم.موفق باشید

[m.4.r.m]

Private Sub Command1_Click()
StText$ = Me.Caption
If Text1.Text = StText$ Then
' فرامين شما
Else
MsgBox " Error ", vbExclamation, ""
End If
End Sub

[elmatador]

سلام.با تشکر از شما دوست خوبم.اگر بنده بخوام چندین کلمه بزارم توی StText$ باید چی کار کنم.مثلا
StText$ = a ,b,c,d,e
و این که شاید تمام اینا همزمان باشه توی کپشن پیجم.باید چطوری استفاده کنم.ممنونم

[elmatador]

ببخشید بچه ها لطفا کمک کنید کارم گیره

[nimar9]

سلام.با تشکر از شما دوست خوبم.اگر بنده بخوام چندین کلمه بزارم توی StText$ باید چی کار کنم.مثلا
StText$ = a ,b,c,d,e
و این که شاید تمام اینا همزمان باشه توی کپشن پیجم.باید چطوری استفاده کنم.ممنونم
نمی دونم منظورتونو درست متوجه شدم یانه.
منظور شما اینه که رشته های داخل متغیر ها رو کنار هم توی یک تکست بریزه ؟
اینجوری میشه:
a="sa"
b="asa"
c="sas"
text1.text= a & b & c

[vbhamed]

سلام
اگر كلمات با كاما يا هر چيزي ديگه از هم جدا ميشن مي‌تونيد از تابع Split براي جداسازي اونها استفاده كنيد
Private Sub Command1_Click()

Dim s() As String, i%, StText$

StText = Me.Caption

s = Split(s, ",")

For i = 0 To UBound(s)

If text1.Text = s(i) Then
'دستور مورد نظر
End If

Next

End Sub