بررسی خالی نبودن مجموعه ای از EditText ها

[salar_blackdroid 408]

با کد زیر می تونید برای مجموعه ای از EditText ها تشخص بدین که آیا خالی هستن یا نه .!

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

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

 

If Not_Empty(Array As EditText(txt1,txt2,txt3,txt4)) = True Then

 

سوالی بود در خدمتم.

[danial1369 102]

if editext1.text="" or editest2.text="" then

else

endif

اینجوری هم بنظرم یشه

[amir54 138]

در در 1396/06/06, 16:57:58، salar_blackdroid گفته است :

با کد زیر می تونید برای مجموعه ای از EditText ها تشخص بدین که آیا خالی هستن یا نه .!

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

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

 

If Not_Empty(Array As EditText(txt1,txt2,txt3,txt4)) = True Then

 

سوالی بود در خدمتم.

سلام خوب یه اشتباه بزرگ کردید اگه همه پر بود به جز اخری بازم میگه همه خالیه یا بر عکس ش