جست‌وجو در لیست ویو بدون دیتابیس 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 = 1 To 15
	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 = 0 To lText1.Size - 1
		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 رو اضافه می کنیم و اگر نبود هم که هیچی !!!!

به همین سادگی

موفق باشید