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

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


آوای دل

سوال

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

Sub Globals
	Private ScrollView1 As ScrollView
	Dim textsetting1 As TextSetting'
	Dim StrUtil As StringUtils
	Private Lb1 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("fsecret")
ScrollView1.panel.loadlayout("fsecret1")
Lb1.Typeface=Typeface.LoadFromAssets("BHOMA.TTF")
  ScrollView1.Color = Colors.Transparent
 ' textsetting1.Initialize
  'textsetting1.LongText(Lb1,Lb1.Text,2,ScrollView1,2.5)

	SetText
End Sub
Sub SetText
	Dim ht As Float
	ht=StrUtil.MeasureMultilineTextHeight(Lb1, Lb1.Text)
	ScrollView1.Panel.Height = ht
	Lb1.Height = ht
	ScrollView1.ScrollPosition = 0
	DoEvents	' needed to execute the line above
End Sub

که وقتی هم از کتابخانه textsetting  استفاده میکنم ( کامنت ها رو برمیدارم )

صفحه سفید میشه و اصلا دیگه هیچی نمیاد

 

انجمن سرچ کردم مشکلم حل نشد

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

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

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

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

ScrollView1.Panel.Height = ht +15%y
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

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

ScrollView1.Panel.Height = ht +15%y

 

همشهری دمت گرم درست شد 

 

ولی دلیل اینکه اون کار نمیکرد  رو نفهمیدم  ، اون همه چی اش اوکی بود

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

بایگانی شده

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

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

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