قرار دادن یک متن در اسکرول ویو

[korosh 27]

سلام 

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

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

[korosh 27]

میشه لینکش رو بگذارید

[Nemesis 1,846]

به تازگی دوبار سورس درون انجمن قرار گرفته

جستجو کنید پیدا میکنید

[alireza22 9]

#Region Activity Attributes

#FullScreen: True

#IncludeTitle: False

#End Region

Sub Process_Globals

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.

Dim panelheight As Int

Dim text As String

Dim strUtil As StringUtils

Dim ht As Float

Dim mfont As Typeface

Private ScrollViewfar As ScrollView

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("اسم لایوت")

دفتر چه ای متن رو توش دخیره کردیtext= File.ReadString(File.DirAssets,"6.txt")

فونتmfont=Typeface.LoadFromAssets("byekan.ttf")

scroll

End Sub

Sub scroll

ScrollViewfar.Initialize(500dip)

Activity.AddView(ScrollViewfar, 0, 17%y, 100%x, 70%y)

panelheight=0

Dim lbltest As Label

lbltest.Initialize("lbltest")

ScrollViewfar.Panel.AddView(lbltest,2dip, panelheight, 100%x-5dip, 50dip)

lbltest.TextSize=18

lbltest.TextColor=Colors.White

ht= art (text,lbltest,mfont,20)

panelheight=panelheight+ht+25dip

panelheight=panelheight+80dip

ScrollViewfar.Panel.Height=panelheight

End Sub

Sub art(txt As String,leb As Label,font As Typeface,size As Int) As Float

Dim before,after As Float

Dim Obj1 As Reflector

leb.text=txt

leb.TextSize=size

leb.Gravity=Gravity.CENTER

leb.Left=leb.Left

leb.Typeface=font

ht = strUtil.MeasureMultilineTextHeight(leb , txt)

Obj1.Target = leb

before = Obj1.RunMethod("getLineHeight")

Obj1.Target = leb

Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float")

Obj1.Target = leb

after = Obj1.RunMethod("getLineHeight")

ht = ((after * ht)/before)

leb.Height = ht

Return ht

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub