رفتن به مطلب

بایگانی شده

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

salar_blackdroid

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

پست های پیشنهاد شده

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

 

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
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:

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


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

×
×
  • جدید...