VBA Tipp: Eigene Taskleistenbeschriftung pro Formular verwenden

Aus DBWiki
Wechseln zu: Navigation, Suche

Aufgabenstellung

Access beschriftet den Programm-Task in der Taskleiste standardmäßig

  1. mit "Microsoft Access + Programmname" oder alternativ mit dem Anwendungstitel
  2. und in der Vollbildansicht zusätzlich mit dem Formularnamen in eckigen Klammern.

Ich möchte aber für jedes Formular eine eigene, individuelle Beschriftung für den Programm-Task in der Taskleiste verwenden.

Lösung

Das geht mit folgender API-Funktion, die in einem globalen Modul gespeichert wird.

Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" ( _
                        ByVal hWnd As Long, _
                        ByVal lpString As String) _
                        As Long

Aufruf

im Formularereignis Bei Aktivierung

Private Sub Form_Activate()
 
 'Quelle: www.dbwiki.net oder www.dbwiki.de
 
 'Nur für Vollbildansicht: Formularnamen in der Taskbeschriftung ändern,
 'z.B. Formularnamen löschen durch Leerstring
 SetWindowText Me.hWnd, ""
 
 'Anwendungstitel in der Taskbeschriftung ändern
 SetWindowText Application.hWndAccessApp, "MeinTasktext"
 
End Sub
Wiki hinweis.png Anmerkung: Da mit obigem Code der Anwendungstitel (nicht der Formularname) in der Taskleiste geändert wird, muss der Code für jedes einzelne Formular gesondert ausgeführt werden.


Wiki-Links