رفتن به مطلب
  • 0

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


omid18

سوال

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

11 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

لینک ارسال
به اشتراک گذاری در سایت های دیگر

@@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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

نشد

<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/>

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

داخل حلقه فور

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

هایلایت میشه

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

<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>

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

@@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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...