*هایلایت کردن متن موقع سرچ*(کاربردی)

[Salar82 901]

سلام به همه

خیلی از دوستان، سورسی رو نیاز داشتن که بشه از طریق اون، متن سرچ شده رو رنگی کرد.

من این سورس رو قرار میدم تا همگی از اون استفاده کنن. در این سورس، از اسکرول دادن به لیبل بدون اسکرول ویو هم استفاده شده.

آموزش:

 

برای کار اول از همه این ساب رو به اکتیویتیتون اضاف کنید:

Sub highlightTextInString(Text As String, SearchText As String , HighlightColor As Int) As RichString
	Dim RS As RichString
	RS.Initialize(Text)
	
	Dim index As Int = 0
	For i = 0 To Text.Length
		Dim startIndex As Int = Text.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

 

حالا کافیه موقع سرچ، به شکل زیر از ساب استفاده کنید:

Label1.Text = highlightTextInString(Text , SearchFOr , HighlightColor)

 

مثلا:

Sub EditText1_TextChanged (Old As String, New As String)
	Label1.Text = highlightTextInString(Label1.Text , New , Colors.Yellow)
End Sub

 

به همین سادگی

 

اینم سورس:

Highlight.zip

[mahfelsoft 130]

در 7 ساعت قبل، Salar82 گفته است :

سلام به همه

خیلی از دوستان، سورسی رو نیاز داشتن که بشه از طریق اون، متن سرچ شده رو رنگی کرد.

من این سورس رو قرار میدم تا همگی از اون استفاده کنن. در این سورس، از اسکرول دادن به لیبل بدون اسکرول ویو هم استفاده شده.

آموزش:

 

برای کار اول از همه این ساب رو به اکتیویتیتون اضاف کنید:

Sub highlightTextInString(Text As String, SearchText As String , HighlightColor As Int) As RichString
	Dim RS As RichString
	RS.Initialize(Text)
	
	Dim index As Int = 0
	For i = 0 To Text.Length
		Dim startIndex As Int = Text.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

 

حالا کافیه موقع سرچ، به شکل زیر از ساب استفاده کنید:

Label1.Text = highlightTextInString(Text , SearchFOr , HighlightColor)

 

مثلا:

Sub EditText1_TextChanged (Old As String, New As String)
	Label1.Text = highlightTextInString(Label1.Text , New , Colors.Yellow)
End Sub

 

به همین سادگی

 

اینم سورس:

Highlight.zip 10.12 kB · 1 download

خیلی ممنونم. لطف کردید . اما میشه یه خواهشی بکنم ؟ میشه لطفا این حالت رو توی همون سورس کتاب متریال که خودتون توی سایت گذاشتید قرار بدید ؟ واقعا ممنون میشم  توی این سورس (سورس خودتونه )

 

http://s6.picofile.com/d/8384736418/35394b0d-3dc1-4c3a-985a-fcd9d0c6431a/book.zip

[Salar82 901]

خدمت شما دوست عزیز

Story Book.zip

در 28 دقیقه قبل، mahfelsoft گفته است :

خیلی ممنونم. لطف کردید . اما میشه یه خواهشی بکنم ؟ میشه لطفا این حالت رو توی همون سورس کتاب متریال که خودتون توی سایت گذاشتید قرار بدید ؟ واقعا ممنون میشم  توی این سورس (سورس خودتونه )

ولی این سورس مال بنده نیست و یکی از دوستان، @ Mr.Kafiri این سورس رو در انجمن قرار دادن.