جستوجو در لیست ویو بدون دیتابیس B4A
سلام
شاید برای شما هم پیش اومده باشه که بخواهید داخل یک لیست جستجو رو انجام بدید، ولی تا لیست ویو به دیتابیس متصل نباشه، نمیشه همچین کاری کرد، در این آموزش میخواهیم درون یک لیست ویو که به دیتابیس متصل نیست، جستجو رو انجام بدیم، در ادامه همراه بپرسم باشید.
شروع آموزش:
با این آموزش، میتونید این کار رو به سادگی انجام بدید.(چه با SingleLine، چه با TwoLines لیست ویو)
- ابتدا ویو ها رو تعریف میکنیم:
۱ ۲ ۳ ۴ ۵ ۶ |
'Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Dim lText2 , lText1 As List Private ListView1 As ListView Private EditText1 As EditText End Sub |
- سپس، میایم آیتم ها رو به لیست ویو اضافه میکنیم:
۱ ۲ ۳ ۴ ۵ |
For i = ۱ To ۱۵ ListView1.AddTwoLines("#SomeText" & i , "Text" & i) lText1.Add("#SomeText" & i) lText2.Add("Text" & i) Next |
اینجا برای اینکه Text آیتمها رو داشته باشیم، اومدیم Text1 و Text2 هر کدوم رو داخل یه متغیر لیست، ذخیره کردیم.
- حالا کافیه که جستوجو رو تو رویداد TextChanged انجام بدیم:
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ |
Sub EditText1_TextChanged (Old As String, New As String) ListView1.Clear For i = ۰ To lText1.Size - ۱ Dim Search As String Search = lText1.Get(i) If Search.Contains(EditText1.Text)=True Then ListView1.AddTwoLines2(Search , lText2.Get(i) , Search) End If Next End Sub |
اول از همه اومدیم لیستویو رو Clear کردیم.
بعد به تعداد آیتم هایی که داشت(داخل متغیر لیست ذخیره کردیم)، چک کردیم که آیا متن سرچ شده در ادیت تکست، داخل اون آیتم هست یا نه؛ اگر بود، به لیست ویو همون آیتم و Text2 رو اضافه می کنیم و اگر نبود هم که هیچی !!!!
به همین سادگی
موفق باشید
ارسال نظر
شما باید وارد شوید یا عضو شوید تا بتوانید نظر ارسال کنید