#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
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
Dim fara As Farakhani
Dim mtxt As String
Dim ht As Float
Dim StrUtil As StringUtils
Dim obj1 As Reflector
Dim scrollview1 As ScrollView
Dim sql1 As SQL
Dim lbl As Label
Dim panelheight As Int
Dim sss As SLS
Dim mfont As Typeface
Dim cursur1 As Cursor
Dim LABEL3 As Label
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("matndata")
lbl.Initialize("")
mtxt = fara.FarakhaniMatn("data.db",menoDATA.sql1,menoDATA.cur,"SELECT * FROM Herbs WHERE id=",menoDATA.listviewMeghdar,lbl,"text")
If meno0.meghdar1 = 1 Then
fara.FarakhaniMatn("data.db",menoDATA.sql1,menoDATA.cur,"SELECT * FROM Herbs WHERE id=",menoDATA.listviewMeghdar,lbl,"text")
End If
If meno0.meghdar1 = 2 Then
fara.FarakhaniMatn("data.db",menoDATA.sql1,menoDATA.cur,"SELECT * FROM Herbs WHERE id=",menoDATA.listviewMeghdar,lbl,"text")
End If
If meno0.meghdar1 = 3 Then
fara.FarakhaniMatn("data.db",menoDATA.sql1,menoDATA.cur,"SELECT * FROM Herbs; WHERE id=",menoDATA.listviewMeghdar,lbl,"text")
End If
'*****************
scrollview1.Initialize(700)
Activity.AddView(scrollview1,3%X,0,95%x,100%y)
scrollview1.Color=Colors.ARGB(0,0,0,0)
scrollview1.Panel.AddView(lbl, 0,0,100%x, 100%y)
lbl.TextColor = Colors.Red
lbl.TextSize=20
lbl.Text = mtxt
lbl.Width=93%X
lbl.Gravity= Gravity.RIGHT
Dim ht As Float
ht = StrUtil.MeasureMultilineTextHeight(lbl, mtxt)
lbl.Height = ht
scrollview1.Panel.Height = ht
obj1.Target = lbl
obj1.RunMethod3("setLineSpacing",1, "java.lang.float", 1.52, "java.lang.float")
'************************
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
سوال
abolfazl2468 13
سلام دوستان
مشکل کد زیر چیه؟
متنم نه اسکرول میشه و نه نمایش داده میشه؟
#Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region 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 Dim fara As Farakhani Dim mtxt As String Dim ht As Float Dim StrUtil As StringUtils Dim obj1 As Reflector Dim scrollview1 As ScrollView Dim sql1 As SQL Dim lbl As Label Dim panelheight As Int Dim sss As SLS Dim mfont As Typeface Dim cursur1 As Cursor Dim LABEL3 As Label 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("matndata") lbl.Initialize("") mtxt = fara.FarakhaniMatn("data.db",menoDATA.sql1,menoDATA.cur,"SELECT * FROM Herbs WHERE id=",menoDATA.listviewMeghdar,lbl,"text") If meno0.meghdar1 = 1 Then fara.FarakhaniMatn("data.db",menoDATA.sql1,menoDATA.cur,"SELECT * FROM Herbs WHERE id=",menoDATA.listviewMeghdar,lbl,"text") End If If meno0.meghdar1 = 2 Then fara.FarakhaniMatn("data.db",menoDATA.sql1,menoDATA.cur,"SELECT * FROM Herbs WHERE id=",menoDATA.listviewMeghdar,lbl,"text") End If If meno0.meghdar1 = 3 Then fara.FarakhaniMatn("data.db",menoDATA.sql1,menoDATA.cur,"SELECT * FROM Herbs; WHERE id=",menoDATA.listviewMeghdar,lbl,"text") End If '***************** scrollview1.Initialize(700) Activity.AddView(scrollview1,3%X,0,95%x,100%y) scrollview1.Color=Colors.ARGB(0,0,0,0) scrollview1.Panel.AddView(lbl, 0,0,100%x, 100%y) lbl.TextColor = Colors.Red lbl.TextSize=20 lbl.Text = mtxt lbl.Width=93%X lbl.Gravity= Gravity.RIGHT Dim ht As Float ht = StrUtil.MeasureMultilineTextHeight(lbl, mtxt) lbl.Height = ht scrollview1.Panel.Height = ht obj1.Target = lbl obj1.RunMethod3("setLineSpacing",1, "java.lang.float", 1.52, "java.lang.float") '************************ End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
9 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.