تنظیمات اسکرول ویو

[ali@ali 10]

سلام دوستان

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

ینی اسکرول ویو اضافه نداشته باشیم ؟!؟!

این کد و میزنم جواب نمیده اسکرول اضافه میاد باید هی بری از inner height عدد و انگولک کنی که بنظرم روش منطقی ای نیس!

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

اینم کد

Sub Globals	'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.


Private ScrollView1 As ScrollView
Dim matn As Label
End Sub


Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("d")
matn.Initialize("")
matn.Gravity = Gravity.CENTER
ScrollView1.Panel.AddView(matn,0,0,90%x,100%y)
matn.Text = "متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن متن "



End Sub

[Farzad Musavi 576]

توی اونتی که متن رو لود میکنی اول تنظیماتو اعمال کن بعد متن و بده به لیبل بعد با این کد ارتفاع لیبل رو با متن ست کن(کتابخونه ی StringUtils رو نیاز داره )

Dim stu As StringUtils
matn.height = stu.MeasureMultilineTextHeight(matn,matn.text)

بعد برای ست کردن اسکرول و لیبل بنویس

ScrollView1.panel.height=matn.height