ایجاد یک Panel و ویوهی داخل آن با کد نویسی

[حمید زارع 331]

سلام من میخام با کد نویسی یک Panel بسازم و یک Button داخلش

 

اینجوری نوشتم ولی وقتی برنامه رو اجرا می کنم  Button نیست ...

Sub Globals
	Dim p As Panel
	Dim B As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	p.Initialize("")
	B.Initialize("")
	
	Activity.AddView(p,0,50%y,100%x,20%y)
	p.AddView(B,20%x,p.Top,20%x,p.Height)
	
	p.Color=Colors.Yellow
	B.Color=Colors.Green
End Sub

[امین شاهدی 5,769]

آره درست گفتید ممنونم

 

یه سوال

 

Left و Top یک ویو هنگام اضافه کردنش به یه پنل یعنی Left و Top پنل یا اکتیویتی ؟؟

 

نسبت به parent ، وقتی شما اونو داخل پنل addview میکنید نسبت به خود پنل اندازه گیری میشه

فقط زمانی نسبت به اکتیویتیه که شما parent رو خود اکتیویتی  قرار بدین یعنی : activity.addview

[امین شاهدی 5,769]

کد نویسی درسته... شما انداره هارو احتمالا اشتباه دادین

[حمید زارع 331]

کد نویسی درسته... شما انداره هارو احتمالا اشتباه دادین

 

نه دیگه دارید می بینید که اندازه ها هم درست هست ...

[امین شاهدی 5,769]

درست نیست دوست عزیز مقدار top رو 0 قرار بدید درست میشه

p.AddView(B,20%x,0,20%x,p.Height)

[حمید زارع 331]

آره درست گفتید ممنونم

 

یه سوال

 

Left و Top یک ویو هنگام اضافه کردنش به یه پنل یعنی Left و Top پنل یا اکتیویتی ؟؟