Als Erweiterung zu der unter  Fensterliste gezeigten Möglichkeit, die geöffneten Dokumente im besseren Zugriff zu behalten, lassen sich die Wechsel zwischen den Dokumente auch mittels eines Klassenmoduls abfangen. Dazu stehen die Ereignisse WindowActivate, WindowDeactivate und NewDocument im Application-Objekt zur Verfügung. Diese Ereignisse werden automatisch beim Erstellen eines neuen Dokumentes, bzw. beim Aktivieren und Deaktivieren eines Dokumentes (Fensters) ausgeführt.

Mit folgendem Klassenmodul EventClassWindow wird dabei der Wechsel zwischen den Dokumenten abgefangen. Wird ein Dokument aktiviert (z.B. über die Programmleiste oder <ALT><TAB>), wird automatisch der entsprechende Eintrag in der Symbolleiste deaktiviert und der Eintrag für das vorher aktive Dokument wieder aktiviert.

Public WithEvents App As Application

Private Sub App_NewDocument(ByVal Doc As Document)  
sCtrlCaption = Doc
CommandBars("FensterListe").Controls(sCtrlCaption).Enabled = False 
End Sub 

Private Sub App_WindowActivate(ByVal Doc As Document, ByVal Wn As Window)  
MakeButton
sCtrlCaption = Doc
Documents(sCtrlCaption).Activate
CommandBars("FensterListe").Controls(sCtrlCaption).Enabled = False 
End Sub 

Private Sub App_WindowDeactivate(ByVal Doc As Document, ByVal Wn As Window)  
MakeButton
End Sub 

Um dieses Klassenmodul einzubinden, muss im Modul folgender Aufruf deklariert und z.B. in die AutoExec eingebunden werden.

Public X As New EventClassModule
Sub AutoExec()  
    Set X.App = Application
End Sub 

Das vollständige Modul inkl. Klassenmodul befindet sich in der Download-Datei.

Hinweis:
Obwohl ich versucht habe, alle Ereignisse abzufangen, kann es trotzdem vorkommen, dass die Fensterliste nicht aktualisiert wird. Normalerweise lässt sie sich dann über die erste Schaltfläche aktualisieren. Für Hinweise auf fehlende Ereignisse (am besten mit Lösungen) wäre ich dankbar.

<< Zurück (Teil I)