#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: true
' <- setzt auf vollbild und entfernt die Android Symbole
#IncludeTitle: false
' <- Enfernt das BA-Balken (weiß ich auch erst seit ich gefragt habe)
#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
Private Label1 As Label '<- vom Designer erstellt (hat nur label1)
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Dim su As StringUtils
Activity.LoadLayout("test_2.bal") '<- Der Name es Designs
' Setzt das Label in die oberste Ecke
Label1.Top = 0
Label1.Left = 0
Label1.Text = "Das ist ein Test"
Label1.Height = su.MeasureMultilineTextHeight(Label1, Label1.Text) ' setzt die Höhe des Label1 auf die Texthöhe
End Sub