دو تا مشکل با دیتا بیس

[seyed_27 171]

بسمه تعالی

با سلام خدمت دوستان

یه دیتابیس دارم که می خوام دوتا امکان بهش اضافه کنم:

1- سرچ در متن جاری طوری که در تمام متن جاری بگرده و هرچی کلمه منتخب هست رو پیدا کنه و رنگش رو عوض کنه

2- متن در اسکرول بصورت تدریجی اضافه بشه مثلا 100 تا 100 تا حرف

از آموزش دوستان استفاده کردم و کدها رو نوشتم اما برنامه مشکلاتی داره. سورس رو ضمیمه می کنم دوستان یه نگاهی بهش بندازند و درصورت امکان تکمیلش کنند

با تشکر

ok.rar

[seyed_27 171]

مدیران ارشد لطفا یاری بفرمایید

[seyed_27 171]

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

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

کد:


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

[seyed_27 171]

دوستان کسی نیست یکی از این مسکلات رو حل کنه کل پروژم معطل ایندوتاست

[ham3da 24]

چرا برای این کار از Webview استفاده نمی کنی؟

با کدهای html به راحتی می تونی کلمه مورد نظر رو highlight کنی

[seyed_27 171]

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

دوستان کمک کنند

[seyed_27 171]

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

[مهدی ایزدی 9,203]

درود

به نظر من دلیل اینکه مشکلتون حل نشده اینه که مستقیم خودتون اومدین سورس رو قرار دادین.

اگر تیکه کدهایی که باهاشون مشکل دارید رو هم توی تگ Code توی پست داده بودید شاید الان مشکل حل شده بود