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

[Amalkotey]

Moin, moin,

ich habe den o.g. Fehler und weis einfach nicht mehr weiter. Ich poste mal meinen 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", 0, 0, 240, 350)
      #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:

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

 

[klaus]

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.

 

[Amalkotey]

Hallo Klaus,

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

Gruss
Amalkotey