قرار دادن 3 پنل در 1 اسکرول ویو

[majid08 266]

سلام من 3 تا پنل دارم p1 -p2 - p3 میخام بزارم تو یه اسکرول ویو

تو این پنلها یه لیبل هست که متن رو از دیتابیس میگیره و اندازه متن متغییر هست

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

Dim m2 As Label
m2.Initialize("m2")
m2.Text=lb3.Text&" end"
	
	Dim p1 ,p2 ,p3 As Panel
	p3.Initialize("p3")
	p2.Initialize("p2")
	p1.Initialize("p1")
	p1.Color=Colors.White
	p3.AddView(m2,3%x,0%y,85%x,98%y)
	p2.Color=Colors.RGB(230,210,210)
	Dim stop As Int = 50%y
	p1.AddView(lb3,3%x,0%y,85%x,98%y)
	p2.AddView(p1,2%x,2%y,96%x,0)
	Dim end1 As Int = 98%y
	ScrollView1.Panel.AddView(p2,1%y,stop,100%x,end1)
	end1=p2.Height+10%y
	ScrollView1.Panel.AddView(p3,0,p2.Height+10%y,100%x,end1)

	Dim s As AutoSizeScroll
	s.set(lb3,ScrollView1)
	s.set(m2,ScrollView1)
	
	ScrollView1.Panel.Height=lb3.Height+m2.Height+stop
	p1.Height=ScrollView1.Panel.Height
	p2.Height=-2
	p3.Height=p2.Height

[alirezakazemizaroomi 437]

سلام

برا همه لیبلات کد زیرو بنویس،ببین درست میشه:

lab1.height=-2
lab1.Width=-2

برا هر لیبل جدا بنویس

[majid08 266]

سلام داداش

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

یه سورسی ندارین اینجا بزارین ببینم چطوریه

ممنون میشم

[1212 76]

به نظر من مشکل از اینه    لازمه اتو سایز باشه؟

Dim s As AutoSizeScroll

[majid08 266]

به نظر من مشکل از اینه    لازمه اتو سایز باشه؟

Dim s As AutoSizeScroll

خب چیکار کنم اینو الان حذف کردم نصف صفحه رو نشون نمیده

[alirezakazemizaroomi 437]

سلام داداش

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

یه سورسی ندارین اینجا بزارین ببینم چطوریه

ممنون میشم

سورس ندارم

یخورده باهاش ور برو درست میشه