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

[omid18 13]

سلام دوستان خیلی واسه هایلایت نتیجه جستجو سرچ کردم اما تنها سورس رایگانش این بود که اجرا نمیشه به نظرتون کجاش مشکل داره

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

[omid18 13]

سلام

http://uupload.ir/files/yg9r_screenshot_(31).png

http://uupload.ir/files/p47d_screenshot_(32).png

اینم خروجی که درست نشد

http://uupload.ir/files/z0o_screenshot_(33).png

[محمد رشوند 1,209]

@@omid18,

خب حالا تا اینجا که پیشرفتی این کد که مربوط به پروژه قبلی بود که  بالا گذاشتی رو بزار جای اون رنگ قرمز

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

[omid18 13]

نشد

<code>

Sub txtsearch_FocusChanged (HasFocus As Boolean)

If HasFocus =True Then

Dim StrTarget As Int =txtsearch.Text.Length

For i = 0 To StrTarget

RS.Color(Colors.Red,Label2.Text.IndexOf(txtsearch.Text) - 1,Label2.Text.IndexOf(txtsearch.Text) + i)

Next

Label2.Text = RS

Else If HasFocus = False Then

Label2.TextColor=Colors.Green

End If

End Sub

<code/>

[omid18 13]

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

http://uupload.ir/files/p9x_screenshot_(34).png

[omid18 13]

اینم لینکش که جواب نداد

http://answercenter.ir/topic/3410-%D8%AC%D8%B3%D8%AA%D8%AC%D9%88-%D9%88-%D9%87%D8%A7%DB%8C%D9%84%D8%A7%DB%8C%D8%AA-%D9%85%D8%AA%D9%86/?fromsearch=1

[محمد رشوند 1,209]

دقت کنید کد هاتون رو داخل تگ کد قرار بدید از این به بعد

داخل حلقه فور

For i = 0 To StrTarget
	   RS.Color(Colors.Red,MainTxt.Text.IndexOf(TargetTxt.Text) - 1,MainTxt.Text.IndexOf(TargetTxt.Text) + i)
	  Next

این رو اضافه کن

maintext.textsize=maintext.textsize+2

هایلایت میشه

اسپمم اینقدر نده :|

[omid18 13]

داداش محمد ببخشید ریپورتم نمیتونم بهتون پیام بدم اگه لطف کنید یه پیام بفرستین ممنون میشم @omida61

[omid18 13]

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

<a href="http://uupload.ir/viewer.php?file=ah8_screenshot_(30).png"><imgsrc="http://uupload.ir/files/ah8_screenshot_(30)_thumb.png" border="0" alt="آپلود عکس" /></a>

[محمد رشوند 1,209]

خب اون کار رو انجام نده من ممولا مشکلاتمو با ازمون خطا انجام میدم بعد سوال میپرسم

بیا تعریف کن که متنی که پیدا شد رنگش قرمز بشه

در ضمن روش جستجو های مختلفی تو انجمن هست اونارو سرچ کن

رنگ و روش جستجو رو بزار کنار هم میشه همون چیزی که میخوای

[omid18 13]

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

خواهشا دوستان اگه کشی هست بیستر توضبج بده

[محمد رشوند 1,209]

@@omid18,

ببینید حالا حتماً نباید دقیق بیاد متن رو بگیره رنگی کنه

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

نتیجه سرچ شما داخل هر چیزی که میاد ( لیبل لیست ویو و....)

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

Sub EditText1_FocusChanged (HasFocus As Boolean)

	if HasFocus =true then
      
matn.textsize=matn.textsize+5 <------- in adad miyad be size feli matn 5 andaze ziyad mikone

else if HasFocus  = false

matn.textsize=16 <----- In adad size asly matn mast
 
        end if
End Sub

ایده زیاده برای های لایت متن میتونی به جای سایز بگیر رنگش مثلاً قرمز بشه یا هر چی