German Fehler: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

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

  1. Amalkotey

    Amalkotey Active Member Licensed User

    Moin, moin,

    ich habe den o.g. Fehler und weis einfach nicht mehr weiter. Ich poste mal meinen Code:

    Code:
    Sub App_Start
       
    If cPPC = True  Then
          
    #Region "Initialisierung der Objekte"
             
    Bit.New1
             Flb.New1(
    "frmMain", B4PObject(1))
             FIni.New2
             Process.New1(
    False)
             Process.CreateNew(
    "System.Diagnostics.Process" & Process.System_NS)
             Reg.New1
             StartInfo.New1(
    False)
             StartInfo.Value = Process.GetProperty(
    "StartInfo")
             StrEx.New1
             
    Tab.New1("frmMain"00240350)
          
    #End Region
          
    If IsSamsungDevice = True Then
             
    #Region "Setzen der Events-Proceduren"
                mnuEvents() = StrSplit(
    "101,102,103,104,201,202"",")  
                
    For I = 0 To ArrayLen(mnuEvents()) - 1
                     AddEvent (
    "mnu" & mnuEvents(I), Click, "MainSwitchBoard")
                
    Next
                btnEvents() = StrSplit(
    "101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123"",")  
                
    For I = 0 To ArrayLen(btnEvents()) - 1
                     AddEvent (
    "btn" & btnEvents(I), Click, "ButtonSwitchBoard")
                
    Next
                ibtnEvents() = StrSplit(
    "101,102,103"",")  
                
    For I = 0 To ArrayLen(ibtnEvents()) - 1
                   AddEvent (
    "ibtn" & ibtnEvents(I), Click, "ImageButtonSwitchBoard")
                
    Next
             
    #End Region
             
    #Region "Prüfen ob der Reiter [Today 2] benötigt wird."
                Reg.RootKey(Reg.rtCurrentUser)
                Names() = Reg.GetSubKeyNames(
    "Software\Samsung\Clock\Alarm")
                
    If FileExist ("\Windows\TClock.exe") = True Then
                   
    If ArrayLen(Names()) - 1 > 0 Then
                      
    TabPage() = StrSplit("Willkommen,Telefon,Messaging,Erinnerungen,Today 2,Verbindung,Einstellungen,Info,Module"",")
                   
    Else
                      
    TabPage() = StrSplit("Willkommen,Telefon,Messaging,Erinnerungen,Verbindung,Einstellungen,Info,Module"",")
                      mnu201.Enabled = 
    False
                   
    End If
                
    Else
                   
    TabPage() = StrSplit("Willkommen,Telefon,Messaging,Erinnerungen,Verbindung,Einstellungen,Info,Module"",")
                   mnu201.Enabled = 
    False
                
    End If
             
    #End Region
             ReadRegistry
             frmMain.Show
          
    Else
             
    Msgbox(cMsg, cInfo, cMsgboxOK)
          
    End If
       
    Else
          
    Msgbox(cMsg, cInfo, cMsgboxOK)
       
    End If
    End Sub
    Der Fehler wir durch diese Codezeile verursacht:
    Code:
    AddEvent("ibtn" & ibtnEvents(I), Click, "ImageButtonSwitchBoard")
    Was bedeutet der Fehler und wie kann ich ihn beheben? Vielen Dank für euere Hilfe im voraus.

    MfG
    Amalkotey
     
    Last edited: Jun 4, 2009
  2. klaus

    klaus Expert Licensed User

    Hallo Amalkotey,

    Der Fehler ist normal, denn die Controls ibtn102 und ibtn103 existieren nicht !?
    Im IDE in der reechten Spalte hast du einen Eintrag unter Main, Sub, Controls. Wenn du Controls aufmachst siehst Du alle Controls, und da fehelen eben die 2 oben genannten Controls.

    Guter Reflex dass du die sbp Datei hinzugefügt hasst, denn ohne die wäre es unmöglich gewesen den Fehler zu finden. Deinen ersten Post kannst Du löschen.

    Beste Grüsse.
     
  3. Amalkotey

    Amalkotey Active Member Licensed User

    Hallo Klaus,

    danke für Deine Hilfe. Ist mir nicht aufgefallen. :)

    Gruss
    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