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, _
   Optional 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 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