German TabControl - Event-Sub kann nicht gesetzt werden!

Amalkotey

Active Member
Licensed User
Hallo,

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.

Beste Grüsse
Amalkotey
 

klaus

Expert
Licensed User
Das Event TabPageX_Click existiert nicht in B4PPC.

Laut der Help Datei musst du folbende Routine verwenden:
B4X:
[FONT=Times New Roman][COLOR=#010101]Occurs whenever the selected page has changed.[/COLOR][/FONT]
[LEFT][FONT=Times New Roman][COLOR=#010101]Example:[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000ff]Sub [/COLOR][/FONT][FONT=Courier New][COLOR=#010101]tbc_SelectionChanged[/COLOR][/FONT]
[FONT=Courier New][/FONT][FONT=Courier New][COLOR=#0000ff]msgbox[/COLOR][/FONT][FONT=Courier New][COLOR=#010101]("Selected page: " & tbc.SelectedIndex)[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000ff]End Sub[/COLOR][/FONT][/LEFT]
Beste Grüsse.
 
Top