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

[2278514 2]

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

لینک سورس من doa2

این هم از کدهایی که در اتیویتی context گذاشتم

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region
#Extends: android.support.v7.app.AppCompatActivity
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private Label1 As Label
    Private ScrollView1 As ScrollView
    Dim lbl As Label
    Dim ts As TextSetting
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("context")
    menumaf2.cs=menumaf2.sq.ExecQuery("SELECT * FROM jomle WHERE tag="&menumaf.TAG)
    menumaf2.cs.Position = menumaf2.val
    lbl.Initialize("")
    lbl.Text = menumaf2.cs.GetString("text")
    lbl.TextColor = Colors.Black
    lbl.TextSize = 16
    lbl.Gravity = Gravity.RIGHT
    ts.Initialize
    ScrollView1.Panel.AddView(lbl,5%x,0,95%x,100%y)
    ts.LongText(Label1,lbl.Text,lbl.TextSize,ScrollView1,1.5)
    menumaf2.cs.Close
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

[احسان کرمی 220]

سلام

اگه متن شما طولانی هست، مشکل پیش میاد. از کتابخونه string utils (نمیدونم درست نوشتم یا نه) استفاده کنین.

[reza sabouri 444]

 

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

[reza644 435]

سلام

 

یه کتابخونه هست مخصوص این کار مثل کتابخونه textsetting هست.

 

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

 

رمز فایل:answercenter.ir

HeightLabel.rar

	Sub Globals
Dim hl As HeightLabel
Dim f As Typeface
dim s as string
Dim lbl As Label'ویویی که متن رو نشون میده

End Sub

s="متن مورد نظر"
f = Typeface.LoadFromAssets("fa.ttf")
hl.Initialize
Dim y As Float
y= hl.LabelHeight(s,lbl,f,File.GetText(File.DirRootExternal,"s"&".txt"),Gravity.RIGHT,1.5)