رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

salar_blackdroid

بررسی خالی نبودن مجموعه ای از 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

 

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

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

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

×
×
  • جدید...