پاک کردن یک یا چند ادیت تکس

[arastooms 1,046]

سلام به همه دوستان و اساتید عزیز 
من در اکتیوتی چند تا ادیت تکس دارم  و یک دکمه پاک کن!
فرض میکنیم 
یک ادیت تکس نام
یک ادیت تکس فامیل
یک ادیت تکستلفن هست

حالا به دکمه گفتم هر وقت کلیک شد همه ادیت تکس ها رو پاک کن و تمیز کن 

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

اومده ادیت تکس 2 و میخاد فامیل رو بزنه و نصفشرو وارد میکنه حالا میخاد پاک کنه از اول بنویسه ( فقط فامیل رو)

حالا وقتی رویپاک کن کلیک میکنه باید بگیم 
اگر ادیت تکس یک فعاله 
ادیت تکس یک رو پاک کن
اگر ادیت تکس دو فعاله 
ادیت تکس دو رو پاک کن
اگر ادیت تکس 3 فعاله
فقط 3 رو پاک کن
در غیر این صورت
بیا همه رو پاک کن 
اتمام شرط

ممنونم میشم راهنمایی بفرمایید
با تشکر

[softir 459]

در هم اکنون، arastooms گفته است :

سلام به همه دوستان و اساتید عزیز 
من در اکتیوتی چند تا ادیت تکس دارم  و یک دکمه پاک کن!
فرض میکنیم 
یک ادیت تکس نام
یک ادیت تکس فامیل
یک ادیت تکستلفن هست

حالا به دکمه گفتم هر وقت کلیک شد همه ادیت تکس ها رو پاک کن و تمیز کن 

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

اومده ادیت تکس 2 و میخاد فامیل رو بزنه و نصفشرو وارد میکنه حالا میخاد پاک کنه از اول بنویسه ( فقط فامیل رو)

حالا وقتی رویپاک کن کلیک میکنه باید بگیم 
اگر ادیت تکس یک فعاله 
ادیت تکس یک رو پاک کن
اگر ادیت تکس دو فعاله 
ادیت تکس دو رو پاک کن
اگر ادیت تکس 3 فعاله
فقط 3 رو پاک کن
در غیر این صورت
بیا همه رو پاک کن 
اتمام شرط

ممنونم میشم راهنمایی بفرمایید
با تشکر

سلام

بفرما اینم کدش

Sub Globals

	
	Private EditText1,EditText2,EditText3 As EditText
	Dim f As Int = 0

End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("L1")
	
End Sub


Sub Button1_Click
	Select f
		Case 0 
			EditText1.Text = ""
			EditText2.Text = ""
			EditText3.Text = ""
		Case 1
			EditText1.Text = ""
		Case 2
			EditText2.Text = ""
		Case 3
			EditText3.Text = ""
	End Select
	
End Sub



Sub EditText1_FocusChanged (HasFocus As Boolean)
	If HasFocus = True Then
		f = 1
	Else
		f = 0
	End If
End Sub

Sub EditText2_FocusChanged (HasFocus As Boolean)
	If HasFocus = True Then
		f = 2
	Else
		f = 0
	End If
End Sub

Sub EditText3_FocusChanged (HasFocus As Boolean)
	If HasFocus = True Then
		f = 3
	Else
		f = 0
	End If
End Sub