بررسی خالی نبودن چند Edittext

[salar_blackdroid 408]

با سلام.

 

این هم آموزش دوم من.

 

فرض کنید واسه یه Activity یه Layout طراحی کردین مثلا با 6 تا یا 10 تا کادر متن - Edittext که میخواین

 

از کاربر مقداری رو بگیرین و مثلا چون اینا رو تو دیتابیس ثبت می کنین نباید کاربر مقدار خالی رو وارد کنه ،

 

بررسی این همه کادر متن که خالی هستن یا نه ، حتما کار زمان بریه !!!

 

من یدونه رویه نوشتم که خیلی ساده این تشخیص رو انجام میده :

Sub Edittexts_notEmpty(ar() As EditText) As Boolean
Dim res As Boolean
res = True
For Each ET As EditText In ar
If ET.Text = "" Then
res = False
Exit
End If
Next
Return(res)
End Sub

خیلی ساده ، رویه یک مقدار منطقی برمیگردونه ، اگه True باشه یعنی هیچ کادرمتنی نبوده که خالی بوده باشه و اگه فقط یکی از کادر متن ها خالی باشن ، خروجی

 

رویه False خواهد بود .

 

به خاطر اینکه بهینگی کد هم حفظ بشه اومدم داخل حلقه گفتم به محض اینکه یه کادر متنی پیدا شد که خالیه ، دیگه حلقه رو ادامه نده و مقدار False رو برگشت بده.

 

نحوه استفاده :

	Dim ar(3) As EditText
 For i=1 To 3
 	Dim et As EditText
	et.Initialize("")
	If i>=2 Then
		et.Text = "TEXT"
	End If
	ar(i-1)=et
Next
Msgbox(Edittexts_notEmpty(ar),"")

خروجی :

 

باتوجه به شرطی که بالا گذاشته شده ، فقط کادر متن های شماره 2 و3 مقدار میگیرن و کادر متنی شماره 1

 

هیچ مقداری نمیگیره ، بنابراین مقدار False برگشت داده میشه !!!!

 

 

موفق باشید ./

 

[stnima 11]

سلام

اگه از این If EditText1.Text.Trim.Length = 0 Then استفاده کنید خیلی بهتر و ساده تره

[کاربر ناشناس 2,148]

با سلام

 

من هروقت میخوام در برنامه هام ، بگیرم که ادیت تکست ها خالی است از کدهای زیر استفاده میکنم و کار میکنه

 

 

 

 

[Aminer 0]

دوستان این شکلی ایراد میگیره؟

if editext.text="" then

("","")msgbox

end if

[کاربر ناشناس 2,148]

دوستان این شکلی ایراد میگیره؟

if editext.text="" then

("","")msgbox

end if

 

خیر ، این کد هم درسته   

 

ان کدی که من دادم بیشتر برای ، اگر حروف ادیت تکست به 23 رسید بگو دیگر نمیشه چیزی تایپ کرد

 

ولی برای این درخواست هم میشه استفاده شود

[salar_blackdroid 408]

دوستان عزیز دقت کنید این کدی که ارائه شده مخصوص بررسی تعداد زیادی ET می باشد

 

مثلا 8 تا 10 تا ، وگرنه هممون میدونیم برای یکی دستور ساده زیر وجود داره :

if et1.text <> "" then

...

end if

شما اگه بخواین 10 تا EditText رو بررسی کنید خالی بودنشون رو ،

 

بشکل معمولی کد زیر رو می نویسید ، که کاراییش فوق العاده پایینه !

if et1.text <> "" and et2.text <> "" and et3.text <> "" ... then

...

end if 

موفق باشید ./