Ich habe ein gravierendes Problem. In meinem nachfolgenden Code, versuche ich die event-Sub für das Click-Ereignis zu setzen, wo bei ich die Fehlermeldung aus dem Anhang bekomme.
B4X:
Sub Globals
'Declare the global variables here.
Dim TabPage(9) As String
End Sub
Sub App_Start
Tab.New1("Form1", 0, 0, 240, 350)
TabPage() = StrSplit("Willkommen,Telefon,Outlook,Messaging,Erinnerungen,Today 2,ActiveSync,Verbindungen,Einstellungen", ",")
For I = 0 To ArrayLen(TabPage()) - 1
Tab.AddTabPage(TabPage(I))
AddEvent(TabPage(I), Click, "UpdateTabs")
Next
Form1.Show
End Sub
Sub UpdateTabs(SenderName)
Msgbox(SenderName)
End Sub
Wo liegt der Fehler? Bei Buttons funktioniert das Schema einwandfrei. Vielen Dank für eure Hilfe im voraus.