<\/p>\n
Neben Ribbon, Formularen und Berichten liefert Access 2007 noch eine weitere Möglichkeit zum Anpassen der Benutzeroberfläche: Das Custom Task Pane. Wie Sie dieses erstellen und steuern, erfahren Sie im vorliegenden Beitrag.<\/b><\/p>\n<\/div>\n Ein Custom Task Pane ist ein spezielles Fenster innerhalb der Benutzeroberfläche von Access 2007 oder einer anderen Office 2007-Anwendung und das benutzerdefinierte Pendant zu den eingebauten Task Panes, die etwa in Access die Eigenschaften oder die Feldliste enthalten.<\/p>\n Der Unterschied zu üblichen Formularen ist, dass Sie Task Panes am Rand des Anwendungsfensters verankern können und dass diese immer sichtbar sind (das heißt, sie werden nicht von Formularen überdeckt- tatsächlich sind Task Panes technisch von den alten Symbolleisten abgeleitet). Ihre Verwendung bietet sich beispielsweise an, um Schnittstellen zu anderen Anwendungen oder andere wichtige Funktionen ständig anzuzeigen. Denkbar ist etwa auch, die Navigation in der Datenbank komplett über ein Taskpane zu realisieren – der einbaute Navigationsbereich von Access 2007 macht es vor.<\/p>\n Neben Visual Basic 6 können Sie solche Custom Task Panes auch mit Visual Studio .NET und Sprachen wie VB.NET oder C# erstellen. Allerdings sind für die daraus entstehenden DLLs das .NET-Framework sowie Assemblies des Visual Studio Tools for Office auf dem Zielrechner Voraussetzung. Mit VB6 geht das wesentlich einfacher, weil man nur die DLL auf den Zielrechner kopieren und sie registrieren muss.<\/p>\n Vorbereitungen<\/p>\n Als Ausgangspunkt dient eine verschlankte Vorlage für ein Add-In-Projekt unter VB6. Dieses legen Sie zunächst über den Menüpunkt Datei\/Neues Projekt <\/b>und die anschließende Auswahl des Eintrags Addin <\/b>an. Nun geht es ans Ausdünnen: Werfen Sie zunächst das Formular frmAddin <\/b>raus und leeren Sie dann das Modul hinter dem Objekt Connect <\/b>bis auf die erste Zeile Option Explicit<\/b>.<\/p>\n Um auf die Methoden zum Erzeugen eines Task Panes zuzugreifen, legen Sie zunächst einen Verweis auf die Bibliothek Microsoft Office 12.0 Object Library <\/b>an. Gegebenenfalls müssen Sie zuvor noch die eingestellte Version 8.0 der gleichen Bibliothek entfernen. Mit der folgenden Zeile fügen Sie dem Projekt die ICustomTaskPaneConsumer<\/b>-Schnittstelle hinzu:<\/p>\n Bevor Sie die Ereignisprozedur zum Erzeugen des Task Panes anlegen, brauchen Sie noch eine Objektvariable, die einen Verweis auf das zu erzeugende Task Pane aufnimmt und deren Ereignisse abfangen kann:<\/p>\n Dann implementieren Sie die einzige Methode der Schnittstelle ICustomTaskPaneConsumer<\/b>, indem Sie die passenden Einträge aus den beiden Kombinationsfeldern im oberen Bereich des Codefensters auswählen:<\/p>\n Task Pane als UserDocument-Container<\/p>\n Bevor Sie diese Methode mit Leben füllen, legen Sie erst noch ein UserDocument <\/b>an, das die im Task Pane anzuzeigenden Steuerelemente enthält. Dazu rufen Sie den Eintrag Hinzufügen\/Benutzerdokument <\/b>des Kontextmenüs im Projekt-Explorer auf und wählen dann im Dialog Benutzerdokument hinzufügen <\/b>das Element Benutzerdokument <\/b>aus. ändern Sie seinen Namen in aiuTask Pane<\/b>. Fügen Sie außerdem eine Schaltfläche hinzu. Anschließend brauchen Sie nur noch die soeben angelegte Methode zu füllen:<\/p>\n Dabei kommt das Objekt CTPFactoryInst<\/b> als Parameter der Methode selbst. CreateCTP <\/b>erzeugt das Task Pane und die Visible<\/b>-Methode macht es schließlich sichtbar. Achten Sie dabei auf die genaue Schreibweise der ProgID <\/b>ihres Benutzerdokuments. Sie setzt sich so zusammen: <Name des VB6-Projekts>.<Name des Benutzerdokuments><\/b>. Debugging anwerfen, Access starten, fertig – es erscheint ein Task Pane wie in Bild 1. Wichtig ist es zu erwähnen, dass das Debuggen an dieser und anderen Stellen in Zusammenhang mit dem Erzeugen von Custom Task Panes und Ribbon-Anpassungen nicht zuverlässig funktioniert. Verwenden Sie in jedem Fall eine Fehlerbehandlung, die gegebenenfalls Fehlercode und -beschreibung ausgibt.<\/p>\n Bild 1: Das Access-Fenster mit einem benutzerdefinierten TaskPane<\/span><\/b><\/p>\n<\/div>\n Ein- und ausblenden<\/p>\n <\/p>\n Nun war das noch lange nicht alles – selbst wenn Sie das Bestücken des Task Panes mit echten Funktionen außen vor lassen. Denn irgendwie müssen Sie ja beim Arbeiten mit umfangreichen Formularen oder Berichten auch mal Platz schaffen – zum Beispiel durch Ausblenden des Task Panes. Das funktioniert sehr zuverlässig mit der Schließen-Schaltfläche rechts oben im Custom Task Pane. Leider gibt es keine passende Möglichkeit zum Wiedereinblenden des Task Panes. Also bauen Sie sich einfach eine eigene Schaltfläche, und zwar in Form eines Ribbon-Steuerelements. Am besten ist dafür eine Umschaltfläche geeignet, die das Ein- und Ausblenden gleichermaßen erledigen kann. Die zum Hinzufügen dieser Ribbon-Umschaltfläche notwendigen Schritte sehen wie folgt aus:<\/p>\n Listing 1: XML-Code zur Anzeige einer Umschaltfläche zum Ein- und Ausblenden des Custom Task Panes <\/p>\n <customUI xmlns=“http:\/\/schemas.microsoft.com\/office\/2006\/01\/customui“ <\/p>\n loadImage=“LoadImage“><\/p>\n <ribbon startFromScratch=“false“><\/p>\n <tabs><\/p>\n <tab idMso=“TabHomeAccess“><\/p>\n <group id=“grpTaskPane“ label=“Task Pane“><\/p>\n <toggleButton id=“tglTaskPane“ <\/p>\n label=“Taskpane ein-\/ausblenden“ <\/p>\n onAction=“OnAction_tglTaskPane“ <\/p>\n image=“Window_Sidebar.png“ size=“large“ \/><\/p>\n <\/group><\/p>\n <\/tab><\/p>\n <\/tabs><\/p>\n <\/ribbon><\/p>\n <\/customUI><\/p>\n<\/div>\n Fehlt noch, dass die Umschaltfläche auch das Custom Task Pane ein- und ausblendet. Dazu hinterlegen Sie die folgende Routine, die beim Anklicken der Umschaltfläche ausgelöst wird:<\/p>\n Zusätzlich zu diesen Routinen benötigen Sie – wenn Sie die Umschaltfläche mit einem Icon versehen möchten – noch einige Anpassungen, die Sie dem Beitrag Ribbon mit VB6 <\/b>(Shortlink 526) entnehmen können. In der Regel kann man – wie auch bei den zahlreichen eingebauten Task Panes der Office-Anwendungen – davon ausgehen, dass diese üblicherweise erst einmal ausgeblendet sind und der Benutzer sie erst bei Bedarf einblendet. Dazu müssen Sie lediglich die folgende Zeile aus der Routine ICustomTaskPaneConsumer_CTPFactoryAvailable <\/b>löschen:<\/p>\n Umschaltfläche synchronisieren<\/p>\n Der Ordnung halber sorgen Sie nun noch dafür, dass die Umschaltfläche auch beim Ausblenden des Custom Task Panes den richtigen Status anzeigt – also normal bei ausgeblendetem, hervorgehoben bei eingeblendetem Task Pane. Das ist nicht ganz unkompliziert, zeigt aber sehr schön, wie das Ribbon tickt. Auslöser der ganzen Aktion ist das Ausblenden des Custom Task Panes. Damit dabei überhaupt etwas geschieht, implementieren Sie die folgende Ereignisprozedur:<\/p>\n Im vorliegenden Fall soll die Routine das Ribbon dazu bringen, den Status seiner Elemente auf Basis der vorhandenen get…<\/b>-Attribute, hier getPressed <\/b>der Umschaltfläche, zu aktualisieren. Damit dies funktioniert, muss man beim Anpassen des Ribbons einer Variablen einen Objektverweis auf das Ribbon zuweisen. Der richtige Zeitpunkt dafür ist die Ausführung der onLoad<\/b>-Callbackfunktion, die Sie im XML-Dokument wie folgt festlegen:<\/p>\n Der Objektverweis soll in einer in einem Standardmodul deklarierten Variablen namens objRibbon<\/b> gespeichert werden:<\/p>\n Die OnLoad<\/b>-Funktion sieht schließlich wie folgt aus:<\/p>\n Damit Access den Status der Umschaltfläche auch aktualisiert, weisen Sie diesem Element in der XML-Definition das Attribut getPressed <\/b>mit einer passenden Callbackfunktion zu:<\/p>\n Und wenn Sie nun ein Objekt namens objRibbon<\/b> haben, für das Sie beim Ausblenden des Task Panes per Schließen-Schaltfläche die Invalidate<\/b>-Methode aufrufen, dann sorgt das getPressed<\/b>-Attribut der Umschaltflächen-Definition dafür, dass die folgende Routine den Status der Umschaltfläche mit der Sichtbarkeit des Custom Task Panes synchronisiert:<\/p>\n Zu guter Letzt noch der Hinweis, dass Sie die XML-Ribbon-Definition nach änderungen selbstverständlich jeweils wieder aus der Liste der benutzerdefinierten Ressourcen löschen und wieder hinzufügen müssen. Nach dem Kompilieren des Projekts und dem nächsten Start von Access zeigt sich dieses im gewohnten Look, aber wenn Sie dann eine Datenbank öffnen, erscheint die neue Schaltfläche im Ribbon. Zum Einblenden des Custom Task Panes müssen Sie diese nur betätigen (siehe Bild 2).<\/p>\n Bild 2: Access mit Ribbon-Umschaltfläche zum Ein- und Ausblenden des Custom Task Panes<\/span><\/b><\/p>\n<\/div>\n Das Grundgerüst eines Custom Task Panes zu erstellen, ist kein Hexenwerk. Das Komplizierteste daran ist wohl die Synchronisierung der Ribbon-Umschaltfläche zum Ein- und Ausblenden beim Ausblenden des Task Panes per Schließen-Schaltfläche. Der Spaß beginnt freilich erst danach – nämlich wenn es an den Bau der eigentlichen Funktionen geht. Als Beispiel könnten Sie etwa mal eine Art Query Analyzer implementieren – möglicherweise kennen Sie diesen schon von älteren Versionen des SQL Servers. Es handelt sich dabei um ein Fenster, das in zwei Bereiche aufgeteilt ist und in einem Textfeld im oberen Bereich die Eingabe von SQL-Ausdrücken erlaubt, deren Ausgabe im unteren Bereich angezeigt wird.<\/p>\n Wie dies funktioniert, erfahren Sie in der folgenden Ausgabe in einem weiteren Beitrag namens Permanenter Access-Query-Analyzer <\/b>(Shortlink 544).<\/p>\n","protected":false},"excerpt":{"rendered":" Neben Ribbon, Formularen und Berichten liefert Access 2007 noch eine weitere Möglichkeit zum Anpassen der Benutzeroberfläche: Das Custom Task Pane. Wie Sie dieses erstellen und steuern, erfahren Sie im vorliegenden Beitrag.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662007,66062007,44000028,44000026,44000025],"tags":[],"class_list":["post-55000528","post","type-post","status-publish","format-standard","hentry","category-662007","category-66062007","category-Ergonomie_und_Benutzeroberflaeche","category-Interaktiv","category-VBA_und_Programmiertechniken"],"yoast_head":"\n\nTask Pane-Verbraucher<\/h2>\n
Implements ICustomTaskPaneConsumer<\/pre>\n
Public WithEvents CTP As CustomTaskPane<\/pre>\n
Private Sub _
ICustomTaskPaneConsumer_CTPFactoryAvailable _
(ByVal CTPFactoryInst As Office.ICTPFactory)\r\nEnd Sub<\/pre>\nPrivate Sub _
ICustomTaskPaneConsumer_CTPFactoryAvailable _
(ByVal CTPFactoryInst As Office.ICTPFactory)\r\n Set CTP = CTPFactoryInst.CreateCTP _
(\"MyAddin.aiuTask Pane\", \"AiU-Task Pane\")\r\n CTP.Visible = True\r\nEnd Sub<\/pre>\n\n ![\"abb001.tif\"](\"..\/fileadmin\/_temp_\/2007_06\/CustomTaskPaneMitVB6-web-images\/abb001_opt.jpeg\")
\n<\/div>\n\n\n
\nPrivate Function _
IRibbonExtensibility_GetCustomUI( _
ByVal RibbonID As String) As String\r\n Dim bin() As Byte\r\n Dim sXML As String\r\n Dim F As Integer\r\n On Error GoTo Fehler\r\n bin = LoadResData(\"ribbon.xml\", \"CUSTOM\")\r\n sXML = StrConv(bin, vbUnicode)\r\n IRibbonExtensibility_GetCustomUI = sXML\r\nEnde: \r\n Exit Function\r\nFehler:\r\n MsgBox Err.Number & \" \" & _
Err.Description, vbCritical, _\r\n \"Fehler in \" _
& \"IRibbonExtensibility_GetCustomUI\"\r\n Resume Ende\r\nEnd Function<\/pre>\nSub OnAction_tglTaskpane(control As _
IRibbonControl, pressed As Boolean)\r\n CTP.Visible = pressed\r\nEnd Sub<\/pre>\nCTP.Visible = True<\/pre>\n
Private Sub CTP_VisibleStateChange(ByVal CustomTaskPaneInst As Office.CustomTaskPane)\r\n objRibbon.Invalidate\r\nEnd Sub<\/pre>\n
<customUI xmlns=\"http:\/\/schemas.microsoft.com\/office\/2006\/01\/customui\" loadImage=\"LoadImage\" onLoad=\"OnLoad\"><\/pre>\n
Public objRibbon As IRibbonUI<\/pre>\n
Function OnLoad(ribbon As IRibbonUI)\r\n Set objRibbon = ribbon\r\nEnd Function<\/pre>\n
<toggleButton id=\"tglTaskPane\"
label=\"Taskpane ein-\/ausblenden\"
onAction=\"OnAction_tglTaskPane\"
image=\"Window_Sidebar.png\" size=\"large\" getPressed=\"GetPressed_tglTaskPane\" \/><\/pre>\nFunction GetPressed_tblTaskPane(control As IRibbonControl) As Boolean\r\n GetPressed_tblTaskPane = CTP.Visible\r\nEnd Function<\/pre>\n
\n ![\"abb003.tif\"](\"..\/fileadmin\/_temp_\/2007_05\/CustomTaskPaneMitVB6-web-images\/abb003_opt.jpeg\")
\n<\/div>\n\nZusammenfassung und Ausblick<\/h2>\n