#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Dim Logger As LogCat
Dim Args(1) As String
Dim ListViewLogData As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
Logger.LogCatStart(Args, "MyLogCatName")
Dim lbl As Label = ListViewLogData.SingleLineLayout.Label
lbl.TextColor = Colors.black
End Sub
Sub MyLogCatName_LogCatData(Buffer() As Byte, Length As Int)
Dim data As String
data = BytesToString(Buffer, 0, Length, "UTF-8")
ListViewLogData.AddSingleLine(data)
End Sub
Sub ButtonStop_Click
Logger.LogCatStop()
ExitApplication
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub