ساخت چند edittext با کد

[yaroodf 0]

سلام یک مشکل داشتم می خواستم مثلا یک عددی از کابر بگیرم بعد به تعداد همون عدد مثلا edittext  با حلقه for توی یکی از لایوت ها ساخته بشه و به کاربر نمایش داده بشه

می خواستم بدونم چطور می تونم اینکار کنم از چند روش برای اینا استفاده کردم ولی همش ارور میداد

ممنون میشم راهنماییم کنید

[مجید آرتا 5,874]

سلام

خب خیلی سادس، یک تابع رو می نویسید و ورودی تابع تعداد ادیت تکست و یا هرچیزی رو که میخوایید میدید

 

این تصویر رو ببینید »

http://s6.picofile.com/file/8265991184/ViewAtCount.gif

 

Sub Globals
	Private offsetY As Int = 1%y
	Private edtInput As EditText
End Sub

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

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btnCreate_Click
	AddElement(edtInput.Text,"Edittext")
End Sub

Sub AddElement(value As Int,EventName As String)
	Private e As EditText
	Private cd As ColorDrawable
	Private sv As ScrollView
	sv.Initialize(0)
	Activity.AddView(sv,0,10%y,100%x,90%y)
	For i = 1 To value
		e.Initialize(EventName)
		e.Text = "Edittext #"&i
		e.Tag = e.Text
		cd.Initialize(Colors.RGB(Rnd(0,255),Rnd(0,255),Rnd(0,255)),2dip)
		e.Background = cd
		sv.Panel.AddView(e,4%x,offsetY,92%x,10%y)
		offsetY =  (e.Top + e.Height) + 10dip
	Next
	sv.Panel.Height = offsetY + 2dip
End Sub

به وسیله تابع AddElement  یک ورودی ایونت و تعداد ویو رو میگیریم.