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

[omid18 13]

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

ScrollView1.Panel.AddView(Label1,0,0,ScrollView1.Width,ScrollView1.Height)
				int1 = su.MeasureMultilineTextHeight(Label1,Label1.Text)
				int2 = int1 +5%y
				Label1.Height = int2
				ScrollView1.Panel.Height = int2
				
				
				Main.meghdar = 0
			Next		
		Dim Obj1 As Reflector
Obj1.Target = Label1
  Obj1.RunMethod3("setLineSpacing", 1, "java.lang.float", 1, "java.lang.float")	

[omid18 13]

دوستان سلام دوباره مشکلم حل شد خودمم نمیدونم چکار کردم    ولی کامل کار میکنه مخصوصا زمانی که شما از کتابخانه Reflector که برای فاصله بین خطوط استفاده میکنید.

ScrollView1.Panel.AddView(Label1,0,0,ScrollView1.Width,ScrollView1.Height)                
int1 = su.MeasureMultilineTextHeight(Label1,Label1.Text)
                int2 = int1+int1
                Label1.Height = int2
                ScrollView1.Panel.Height = int2

دقیقا مثل همون کد قیلیه  فقط ما باید اون قسمتی که نوشته بود

int2 = int1
				
				

به اینصورت بنویسیم 

int2 = int1+int1
				

خیلی راحت وخیلی هم کاربردی :53:

تشکر ازدوستان

[omid18 13]

دوستان کسی  نمیدونه چجوریه این

crollView1.Panel.AddView(Label1,0,0,ScrollView1.Width,ScrollView1.Height)
				int1 = su.MeasureMultilineTextHeight(Label1,Label1.Text)
				int2 = int1 +5%y
				Label1.Height = int2
				ScrollView1.Panel.Height = int2

[مجید آرتا 5,875]

سلام

توی این کد :

				int1 = su.MeasureMultilineTextHeight(Label1,Label1.Text)
				int2 = int1 +5%y
				Label1.Height = int2
				ScrollView1.Panel.Height = int2

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

الان مشکلتون چیه ؟

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

[omid18 13]

وقتی از کتابخانه  Reflector استفاده میکنم به اندازه فضایی که ایجاد میکنه از پایین متن حذف میکنه

ScrollView1.Panel.AddView(Label1,0,0,ScrollView1.Width,ScrollView1.Height)	
				int1 = su.MeasureMultilineTextHeight(Label1,Label1.Text)
				int2 = int1+100%y
				Label1.Height = int2
				ScrollView1.Panel.Height = int2+100%y
			
				
				Main.meghdar = 0
				
		Dim Obj1 As Reflector
Obj1.Target = Label1
  Obj1.RunMethod3("setLineSpacing",1, "java.lang.float", 1.3, "java.lang.float")		
  Label1.TextColor=Colors.Black

ref