سلام دوستان سوالم اینه که من برای گزاشتن متن طولانی از کد زیر استفاده میکنم اما با ارور مواجه میشم:
SubGlobals
'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed fromthismodule. Dim panelheight AsInt Dim text AsString Dim strUtil AsStringUtils Dim ht AsFloat Dim mfont AsTypeface PrivateScrollView1AsScrollView
EndSub
SubActivity_Create(FirstTimeAsBoolean) 'Do not forget to load the layout file created with the visual designer. For example: 'Activity.LoadLayout("Layout1")
سوال
mrm 0
سلام دوستان سوالم اینه که من برای گزاشتن متن طولانی از کد زیر استفاده میکنم اما با ارور مواجه میشم:
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 ScrollView1 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("Layout1")
text= File.ReadString(File.DirAssets,"esm matnet.txt")
mfont=Typeface.LoadFromAssets(tanzimat.font &".ttf")
scroll
End Sub
Sub scroll
ScrollView1.Initialize(500dip)
Activity.AddView(ScrollView1, 0, 17%y, 100%x, 70%y)
panelheight=0
Dim lbltest As Label
lbltest.Initialize("lbltest")
ScrollView1.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
ScrollView1.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
اروری که میگیرم:
B4A version 4.30
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.