51 lines
1.1 KiB
QBasic
51 lines
1.1 KiB
QBasic
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Activity
|
|
Version=11
|
|
@EndOfDesignText@
|
|
#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 ImageView1 As ImageView
|
|
Private Label5 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("Layout1")
|
|
Activity.LoadLayout("About")
|
|
Activity.Title="Über..."
|
|
Label5.text=Chr(0x00A9)& "2021 - Stefan Hutter Unternehmensberatung"
|
|
Dim Any As Animation
|
|
|
|
Any.InitializeRotateCenter("",360,0,ImageView1)
|
|
Any.Duration=3000
|
|
ImageView1.Tag=Any
|
|
Any.Start(ImageView1)
|
|
End Sub
|
|
|
|
Sub Activity_Resume
|
|
|
|
End Sub
|
|
|
|
Sub Activity_Pause (UserClosed As Boolean)
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Button3_Click
|
|
Activity.Finish
|
|
End Sub |