جستجو و هایلایت متن

[ehadi 16]

با سلام

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

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

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

حالا می خوام کاری کنم که موقعی که رو اکتیویتی دوم رفت کلمه ای که جستجو شده بود رنگ متفاوت داشته باشه یا هایلایت بشه که مشخص بشه.

ممنون میشم راهنماییم کنید

تو انجمن گشتم متاسفانه لینکا شکستن.

البته لطف کنید نمونه سورسی داشته باشید یا با کد راهنماییم کنید ممنون میشم.

[نیما قبادی 246]

اکتیوتی جدا از اکتیوتیه اصلی خوندن متن هاته؟؟؟؟

اگه که جدا که کاری نداره رنگ لیبل رو تغییر بده

label.color = colors.red

[seyed_27 170]

به لینک ذیل برید 

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

 

منتظر تایید مدیریت هستم

 

http://answercenter.ir/topic/3525-%D8%B3%D9%88%D8%B1%D8%B3-%D8%B3%D8%B1%DA%86-%D9%88-%D9%87%D8%A7%DB%8C%D9%84%D8%A7%DB%8C%D8%AA-%DA%A9%D9%84%D9%85%D9%87-%D8%AF%D8%B1-%D9%85%D8%AA%D9%86-%D8%A8%D8%B7%D9%88%D8%B1-%DA%A9%D8%A7%D9%85%D9%84/

[nany12 623]

یا میخوای فقط متنش رنگی بشه

label.texcolor = colors.red

[shahab.es 5,429]

ُلام

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

[ehadi 16]

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

[mahdi tahan 723]

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

[ehadi 16]

ببخشید جناب mtd منظورمو واضح نگفتم

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

[seyed_27 170]

بفرمائید

این هم سرچ و انتخاب و هایلایت متن

البته یه مشکلی داره

فقط اولین کلمه ای که پیدا کرد رو هایلایت و رنگی میکنه و دنبال بقیه ش نمی گرده

Sub Globals
	Dim RS As RichString
	Private MainTxt As Label
	Private TargetTxt As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("MainLayout")
    RS.Initialize(MainTxt.Text)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Hightlight_Btn_Click
	Dim StrTarget As Int = TargetTxt.Text.Length
	For i = 0 To StrTarget
	   RS.Color(Colors.Red,MainTxt.Text.IndexOf(TargetTxt.Text) - 1,MainTxt.Text.IndexOf(TargetTxt.Text) + i)
	  Next
	 MainTxt.Text = RS
End Sub

کتابخانه rich رو اضافه کنید