قرار دادن اسکرول ویو برای لیبل

[parsixa 35]

سلام خسته نباشید ...

 

یه اکتیویتی هست که توی اون محتوا از طریق دیتا بیس توی یک لیبل لود میشه .. من میخوام واسه لیبل اسکرول ویو بزارم که کل محتوایی که از دیتابیس میاد رو بتونه نمایش بده اما با نوشتن این کد جوابی نگرفتم 

 

کدی که مینویسم اینه : 

label1.Initialize("")
ScrollView1.Panel.AddView(label1,2%x,0,96%x,98%y)

اما اصلا اسکرول انجام نمیشه ینی بالا و پایین نمیشه و ثابت میمونه ... 

 

ممنون میشم راهنمایی بفرمایید

 

[مهدی ایزدی 9,203]

درود

شما باید بیایید ارتفاع اسکرول ویو رو هم تنظیم کنید با ارتفاع Label تنظیم کنید

به کتابخانه StringUtils نیاز دارید

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

بعدش هم کاری رو که گفتم انجام بدید

یعنی ارتفاع Panel رو برابر ارتفاع Label یا برابر ارتفاع Label بعلاوه مثلا 5%y قرار بدید

 

در این باره توی انجمن بسیار بسیار بحث شده

 

باز کار کنید و جست و جو کنید و اگه به جایی نرسیدید اطلاع بدید

[parsixa 35]

درود

شما باید بیایید ارتفاع اسکرول ویو رو هم تنظیم کنید با ارتفاع Label تنظیم کنید

به کتابخانه StringUtils نیاز دارید

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

بعدش هم کاری رو که گفتم انجام بدید

یعنی ارتفاع Panel رو برابر ارتفاع Label یا برابر ارتفاع Label بعلاوه مثلا 5%y قرار بدید

 

در این باره توی انجمن بسیار بسیار بحث شده

 

باز کار کنید و جست و جو کنید و اگه به جایی نرسیدید اطلاع بدید

 

  

لطفا درباره این کد ک قبلا خودتون یادم میاد داده بودید بگید .. که چطور میتونم مقدار h خط یکی مونده به آخری رو متناسب با متنی که از دیتابیس فراخونی میشه بکنم که اسکرول ویو کم و یا اضافه نیاد چون من از دیتابیس فراخونی میکنم و میزان متن ها خیلی زیاده و یا گاهی چند خط بیشتر نیس . ممنون میشم توضیح بدید چطور h رو متناسب با متنی که فراخونی میشه قرار بدم 

Activity.LoadLayout("sc1")
Dim h As Int
	h=0
    Dim p As Panel
	p.Initialize("")
	ScrollView2.Panel.AddView(p,0,h,100%x,125%y)
	p.LoadLayout("l_list")
	h=h+125%y
	ScrollView2.Panel.Height=h

[mahdikam 35]

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

اینم کدش

		Dim ts As TextSetting
ts.initialize

ScrollView1.Panel.addview(Label1,0,0,100%x,100%y)
ts.longtext(Label1,Label1.text,"22",ScrollView1,"2")