جست‌وجو در لیست ویو بدون دیتابیس B4A

عضویت در سایت

نام کاربری*

ایمیل*

رمزعبور*

تایید رمز عبور*

نام*

نام خانوادگی*

نام نمایشی*

تصویر پروفایل*

مرور

کشور*

شهر*

جنسیت* آقا

خانم

سایر

سن*

قوانین و مقررات* با تیک زدن این گزینه شما قوانین و مقررات را میپذیرید.

عضویت در سایت

رایگان ثبت نام کنید و سوالات خود را بپرسید، همچنین میتوانید در پاسخگویی به سوالات دیگر کاربران نیز سهیم باشید، هر مشکلی در ثبت نام یا ورود داشتید با ایمیل beporsam@gmail.com در ارتباط باشید

جست‌وجو در لیست ویو بدون دیتابیس 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

'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

For i = ۱ To ۱۵

ListView1.AddTwoLines("#SomeText" & i , "Text" & i)

lText1.Add("#SomeText" & i)

lText2.Add("Text" & i)

اینجا برای اینکه Text آیتم‌ها رو داشته باشیم، اومدیم Text1 و Text2 هر کدوم رو داخل یه متغیر لیست، ذخیره کردیم.

حالا کافیه که جست‌وجو رو تو رویداد TextChanged انجام بدیم:

مطلب پیشنهادی: آموزش مقدماتی PHP – قسمت نهم(دستورات شرطی if)

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

۱۰

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

End Sub

اول از همه اومدیم لیست‌ویو رو Clear کردیم.

بعد به تعداد آیتم هایی که داشت(داخل متغیر لیست ذخیره کردیم)، چک کردیم که آیا متن سرچ شده در ادیت تکست، داخل اون آیتم هست یا نه؛ اگر بود، به لیست ویو همون آیتم و Text2 رو اضافه می کنیم و اگر نبود هم که هیچی !!!!

به همین سادگی

موفق باشید