دوستان کد های زیر را نوشتم ولی متن من نصفه اسکرول میشه
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 استفاده میکنم ( کامنت ها رو برمیدارم )
سوال
آوای دل 38
دوستان کد های زیر را نوشتم ولی متن من نصفه اسکرول میشه
که وقتی هم از کتابخانه textsetting استفاده میکنم ( کامنت ها رو برمیدارم )
صفحه سفید میشه و اصلا دیگه هیچی نمیاد
انجمن سرچ کردم مشکلم حل نشد
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.