جستوجوی یک متن

[www.pc3enter.tk]

با سلام

می خواستم بدونم چطوری میشه که در یک تکس باکس که قابلیت مالتی لاین ان فعال است جستوجو کنیم به طوری که

وقتی جستوجو می کنیم ان تیکه از متن رو علامت گذاری کنه و نشون بده داخل همان تکس باکس

برای اینکه منظور من را متوجه بشید یک ندپد باز کنید و بعد متنی وارد کنید و بعد جستوجو کنید و بببنید چه جوری جستو را نمایش می دهد

من دقیقا همین را می خواهم باتشکر از دوستدارا گرامی ممنون می شوم که مرا راهنمایی کنید

[www.pc3enter.tk]

دوستان کسی بلد نیست این سوال ساده منو جواب بده حداقل

کمکی . راهی . پیشنهادی . سایتی . یک چیزی که 1% هم بتونه به من کمک کنه ممنون می شم

دارم یک برنامه می سازم که اگر کمکم کنید تا تکمیل بشه به صورت مفت میزارم روی سایت تا دیگران هم استفاده کنند
برنامه جالب و خیلی کاربردیه

خیلی ممنون و باتشکر

[meys34]

بهتره توی تالار اصلی سوالتون رو بپرسید چون ارتباطی با این تالار نداره...

Private Sub Command1_Click()
Dim T As String

T = "Search"

If InStr(1, Text1.Text, T) Then
Text1.SelStart = InStr(1, Text1.Text, T) - 1
Text1.SelLength = Len(T)
Text1.SetFocus
End If
End Sub

[www.pc3enter.tk]

بله درست ولي در كل پيشتر كساني كه سوال دارند تو اين تالار مطرح مي كنند. باز هم ممنون

[www.pc3enter.tk]

خوب ، اين كد درست عمل ميكنه

ولي اگر در متن ما مثلا
مي خواهيم دنبال چند كلمه بگرديم، بايد چه كار كنيم مثلا

دنبال كلمه is مي گرديم
وقتي روي دكمه كليك ميكنيم به نشان مي دهد
ولي اگر ٤ تا كلمه is وجود داشته باشه فقط همان اولي را نشان ميدهد

ما ميخواهيم وقتي اولي را نشان داد بعد روي دكمه كليك مي كنيم بعدي را نشان دهد.

روش و حل كردن اين كد چه جوريه