رفتن به مطلب
  • 0

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


omid18

سوال

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

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")	
لینک ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

دوستان سلام دوباره مشکلم حل شد خودمم نمیدونم چکار کردم :DD:   ولی کامل کار میکنه مخصوصا زمانی که شما از کتابخانه 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: :53:

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

توی این کد :

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

وقتی از کتابخانه  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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...