هایلایت کلمه در ادیت تکست

[امیرحسین قاسمی 610]

سلام،

چطوری کلمه ای خاص رو در ادیت تکست رنگی کنیم؟

بطور مثال کاربر داره توی ادیت تکست متنی می نویسه یک دفعه داخل همون ادیت تکست کلمه "سبز" رو تایپ می کنه من میخوام اون کلمه "سبز" مثلا به رنگ همون سبز در بیاد و بقیه کلمات رنگ خودشونو حفظ کنند. همچنین مثلا کاربر ممکنه 10 تا کلمه "سبز" بنویسه. من میخوام همش رنگی بشه.

چطوری باید این کار رو انجام بدیم؟

[Mthzf1384 123]

در ۱ ساعت قبل، امیرحسین قاسمی گفته است :

سلام،

چطوری کلمه ای خاص رو در ادیت تکست رنگی کنیم؟

بطور مثال کاربر داره توی ادیت تکست متنی می نویسه یک دفعه داخل همون ادیت تکست کلمه "سبز" رو تایپ می کنه من میخوام اون کلمه "سبز" مثلا به رنگ همون سبز در بیاد و بقیه کلمات رنگ خودشونو حفظ کنند. همچنین مثلا کاربر ممکنه 10 تا کلمه "سبز" بنویسه. من میخوام همش رنگی بشه.

چطوری باید این کار رو انجام بدیم؟

سلام

لطفا کد زیر رو یه امتحان کنید:

Sub highlightTextInString(text1 As String, SearchText As String , HighlightColor As Int) As RichString
	Dim RS As RichString
	RS.Initialize(text1)
	
	Dim index As Int = 0
	For i = 0 To text1.Length
		Dim startIndex As Int = text1.ToLowerCase.IndexOf2(SearchText.ToLowerCase , index)
		If startIndex > -1 Then
			Dim endIndex As Int = startIndex + SearchText.Length
			index = endIndex
			RS.BackColor(HighlightColor, startIndex, endIndex)
		Else
			Exit
		End If
	Next
	
	Return RS
End Sub

Private Sub ETtest_TextChanged (Old As String, New As String)
	ETtest.Text = highlightTextInString("سبز" , New , Colors.Green)
End Sub

در تاپیک زیر بیشتر در رابطه با این کد توضیح داده شده:

من تا حالا به این نحو از این ساب استفاده نکرده بودم شما امتحان بکنید نتیجه رو قرار بدید

موفق باشید