German TabControl - Event-Sub kann nicht gesetzt werden!

Discussion in 'German Forum' started by Amalkotey, Jun 14, 2009.

  1. Amalkotey

    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.

    Code:
    Sub Globals
       
    'Declare the global variables here.
       Dim TabPage(9As String
    End Sub

    Sub App_Start
       
    Tab.New1("Form1"00240350)
       
    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
     
  2. klaus

    klaus Expert Licensed User

    Das Event TabPageX_Click existiert nicht in B4PPC.

    Laut der Help Datei musst du folbende Routine verwenden:
    Code:
    [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.
     
  3. Amalkotey

    Amalkotey Active Member Licensed User

    @Klaus:

    Danke für Deine Hilfe. Es funktioniert.

    MfG
    Amalkotey
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice