#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private Label1 As Label
Dim Map1 As Map
End Sub
Sub Activity_Create(FirstTime As Boolean)
Label1.Initialize("")
Label1.Color=Colors.White
Label1.TextColor=Colors.Black
Label1.Text="THIS IS TEST TEXT"
Activity.AddView(Label1,0,0,100%X,25%Y)
Setup(Label1,True,0.6,False)
CallSubDelayed(Me,"Test")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Public Sub Setup(A As View,B As Boolean,C As Float,D As Boolean)
Map1.Initialize
Map1.Put("A",A)
Map1.Put("B",B)
Map1.Put("C",C)
Map1.Put("D",D)
End Sub
Public Sub Test
Dim source As Reflector
source.Target=Map1.GetValueAt(0)
Dim LineCount As Int=source.RunMethod("getLineCount")
Log(LineCount)
Log(Map1.GetValueAt(1))
Log(Map1.GetValueAt(2))
Log(Map1.GetValueAt(3))
End Sub