'Activity module
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.
Dim Zeile(2) As Panel
Dim Label1,Label2 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Erste Zeile erzeugen
Zeile(0).Initialize ("")
Zeile(0).Color =Colors.Gray
Zeile(0).Tag= "Zeile0" 'Info über Zeile merken
'erstes Textfeld (Label1) in Zeile(0) erzeugen
Label1.Initialize ("")
Label1.Text = "Hello World"
Zeile(0).AddView (Label1, 10, 10, 100, 20)
'zweites Textfeld (Label1) erzeugen
Label2.Initialize ("")
Label2.Text = "This is a test"
Zeile(0).AddView (Label2, 10, 30, 100, 20)
'Die erste Zeile in die Activity hängen
Activity.AddView (Zeile(0), 0,0,200,50)
'Zweite Zeile erzeugen
Zeile(1).Initialize ("")
Zeile(1).Color =Colors.Blue
Zeile(1).Tag= "Zeile1" 'Info über Zeile merken
'erstes Textfeld (Label1) in Zeile(1) erzeugen
Label1.Initialize ("")
Label1.Text = "Bin nun in der"
Zeile(1).AddView (Label1, 10, 10, 100, 20)
'zweites Textfeld (Label1) erzeugen
Label2.Initialize ("")
Label2.Text = "zweiten Zeile"
Zeile(1).AddView (Label2, 10, 30, 100, 20)
'Die erste Zeile in die Activity hängen
Activity.AddView (Zeile(1), 0,50,200,50)
'Ende der Initialisierungen
'-----------------------------------------------------------
'Jetzt soll in Zeile(0) der Text von Label1 geändert werden.
'Also die Zeile(0) = erste View in der Activity laden
Dim AktZeile As View
AktZeile = Activity.GetView(0)
'Überprüfen, ob ich wirklich in der Zeile(0) bin (dafür den .TAG der AktView ausgeben)
Msgbox (AktZeile.Tag, "Aktive Zeile ist...")
'Stimmt also, bin in Zeile(0)
'WIE KANN ICH JETZT IN ZEILE(0) IM LABEL1 den Text ändern?
Label1.Text ="NEUER TEXT" 'das soll der neue Text werden
'So gehts nicht, weil ich hier immer noch Label1 der ZWEITEN Zeile anspreche!
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub