Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: sevOutbar Fehler 5
Autor: scf
Datum: 03.02.04 07:40
Hallo Dieter, Es ist mir leider nicht gelungen, den Fehler zu reproduzieren. Vor Ort kann ich auch nicht nachschauen, da der Kunde in Frankfurth ist und ich in Wien. Private Sub Form_Open(Cancel As Integer) Me.Caption = akt_projekt Dim i As Integer Forms!navigation_1024!Outbar3.BackColor = hintergrund_navig Select Case akt_modul Case 1 'Ausweise CommandBars("Hauptmenue").Controls(4).Visible = True CommandBars("Hauptmenue").Controls(8).Visible = False With Forms!navigation_1024!Outbar3 ' GRUPPE 1 ********************************************************************* .Group = 1 'alle Items bis auf das erste löschen For i = .ItemCount(1) To 1 Step -1 .ItemRemove (i) Next i 'Neue Items einfügen .ItemAdd , "Personen", Forms!navigation_1024!ImageList8.ListImages(17).ExtractIcon .ItemAdd , "Firmen", Forms!navigation_1024!ImageList8.ListImages(10).ExtractIcon .ItemAdd , "Bilder einfügen", Forms!navigation_1024!ImageList8.ListImages(9).ExtractIcon .ItemAdd , "von WebCam", Forms!navigation_1024!ImageList8.ListImages(1).ExtractIcon .ItemRemove (1) ' GRUPPE 2 ********************************************************************* .Group = 2 'alle Items bis auf das erste löschen For i = .ItemCount(2) To 1 Step -1 .ItemRemove (i) Next i 'Neue Items einfügen .ItemAdd , "Anfrage", Forms!navigation_1024!ImageList8.ListImages(15).ExtractIcon .ItemAdd , "Berichte", Forms!navigation_1024!ImageList8.ListImages(7).ExtractIcon .ItemRemove (1) ' GRUPPE 3 ********************************************************************* .Group = 3 'alle Items bis auf das erste löschen For i = .ItemCount(3) To 1 Step -1 .ItemRemove (i) Next i 'Neue Items einfügen .ItemAdd , "Programm", Forms!navigation_1024!ImageList8.ListImages(14).ExtractIcon .ItemAdd , "Benutzer", Forms!navigation_1024!ImageList8.ListImages(8).ExtractIcon .ItemAdd , "Länder", Forms!navigation_1024!ImageList8.ListImages(8).ExtractIcon .ItemAdd , "Unterlagen", Forms!navigation_1024!ImageList8.ListImages(2).ExtractIcon .ItemRemove (1) .Group = 1 End With End Sub Gruss Franz

sevOutbar Fehler 5	1.115	scf	31.01.04 09:21
Re: sevOutbar Fehler 5	718	Dieter	03.02.04 00:53
Re: sevOutbar Fehler 5	776	scf	03.02.04 07:40
Re: sevOutbar Fehler 5	524	Dieter	03.02.04 09:34
Re: sevOutbar Fehler 5	577	scf	03.02.04 09:56

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen