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

Amalkotey

Active Member
Licensed User
Moin, moin,

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

B4X:
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:
B4X:
AddEvent("ibtn" & ibtnEvents(I), Click, "ImageButtonSwitchBoard")
Was bedeutet der Fehler udnwie kann ich ihn beheben? Vielen Dank für euere Hilfe im voraus.

MfG
Amalkotey
 
Top