German TabControl - Event-Sub kann nicht gesetzt werden!

[Amalkotey]

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.

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]

Das Event TabPageX_Click existiert nicht in B4PPC.

Laut der Help Datei musst du folbende Routine verwenden:

[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.

 

[Amalkotey]

@Klaus:

Danke für Deine Hilfe. Es funktioniert.

MfG
Amalkotey