مشکل با اسکرول در مولتی پنل

[fileman 328]

سلام به همگی

میدونم در این مورد زیاد بحث شده ولی من هرچی گشتم جوابم رو پیدا نکردم

 

من یه سری متن رو از دیتابیس میگرم و توی مولتی پنل فراخوانی میکنم ولی مشکل اینه که چند تا از متن ها طولانی و چند تا از متن ها کوتاه هستند. حالا چجوری میشه ارتفاع هر پنل رو با توجه به متنی که توی لیبلش هست تنظیم کرد؟

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

کد ها:

Sub Activity_Create(FirstTime As Boolean)
aval = 0 
dovom = 10
farman = "mor"
	Activity.LoadLayout("sv1")
	
	If File.Exists(File.DirInternal,"sms.db")=False Then
	File.copy(File.DirAssets,"sms.db",File.DirInternal,"sms.db")
	End If
	SQL1.Initialize(File.DirInternal,"sms.db",True)
	cur1 = SQL1.ExecQuery("SELECT * FROM t1 where id between 21 and 40 LIMIT "&aval&" , "&dovom&"")
	
	myfont = Typeface.LoadFromAssets("NazaninBold.ttf")
	
	For i=0 To cur1.RowCount-1
	cur1.Position=i
Dim p1 As Panel
	p1.Initialize("p1")
	
	ScrollView1.Panel.AddView(p1,0,stop,100%x,100%y)
	
	p1.LoadLayout("sms")
	Label1.Height = stu.MeasureMultilineTextHeight(Label1,Label1.Text)
	Panel1.Height=Label1.Height +35%y
	Label1.text= cur1.GetString("sms")
	Label1.TextColor=Colors.Black
	stop = stop + Label1.Height + 35%y
	ScrollView1.Panel.Height = stop
	

	share.Tag = i
    copy.Tag = cur1.GetInt("id")
	nfav.Tag = cur1.GetInt("id")

Try
	Label1.TextSize = File.ReadString(File.DirInternal,"size")
	Catch
	Label1.TextSize = 18
	End Try
Next
End Sub

دوستان هر کس میتونه لطفا راهنمایی کنه

ممنون

[porya 959]

سلام به جای این کدها

	Label1.Height = stu.MeasureMultilineTextHeight(Label1,Label1.Text)
	Panel1.Height=Label1.Height +35%y 

از این کدها استفاد کن...

	Dim su As StringUtils
dim int1 as int
int1 = 0 
	label1.Height = su.MeasureMultilineTextHeight(label1,label1.Text)
	int1 = int1 + label1.Height
	ScrollView1.Panel.Height = int1

[AMiN.M7892 1,029]

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

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

ببخشید تاپیک قدیمی آپ کردم

[alirezakazemizaroomi 437]

سلام

بیا تو تاپیک زیر آخرین اسپمو سورسشو دانلود کن همون چیزیه که میخوای:

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

 

[fileman 328]

ممنون ولی درست نشد.

[AMiN.M7892 1,029]

سلام

من این تاپیک رو پیدا کردم

ببینش

آخرین سورسی که آپ شده رو دانلود کن

مشکل توش درست شده

http://answercenter.ir/topic/10195-%D9%85%D8%B4%DA%A9%D9%84-%D8%A8%D8%A7-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%DB%8C-%D9%BE%DB%8C%D8%A7%D9%85%DA%A9%DB%8C-%D8%B3%D9%88%D8%B1%D8%B3-%D9%82%D8%B1%D8%A7%D8%B1-%DA%AF%D8%B1%D9%81%D8%AA/

[porya 959]

ببینید به جای این کدهای که نوشتید

	ScrollView1.Panel.AddView(p1,0,stop,100%x,100%y)
	
	p1.LoadLayout("sms")
	Label1.Height = stu.MeasureMultilineTextHeight(Label1,Label1.Text)
	Panel1.Height=Label1.Height +35%y
	Label1.text= cur1.GetString("sms")
	Label1.TextColor=Colors.Black
	stop = stop + Label1.Height + 35%y
	ScrollView1.Panel.Height = stop

کد های بنده رو قرار دهید...

	ScrollView1.Panel.AddView(p1,0,stop,100%x,100%y)
	dim int1 as int
	int1 = 0 
	stop = stop + 16%y
	p1.LoadLayout("sms")
	Label1.text= cur1.GetString("sms")
	Label1.TextColor=Colors.Black
	Dim su As StringUtils
	label1.Height = su.MeasureMultilineTextHeight(label1,label1.Text)
	int1 = int1 + label1.Height 
	ScrollView1.Panel.Height = int1