رفتن به مطلب

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


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

 

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

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

  • 3 ماه بعد...
در در 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:

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...