Rubrik: Oberfläche · Fenster | VB-Versionen: VB4, VB5, VB6 | 23.06.04 |
Fenster im Hintergrund anzeigen Dieser Tipp verrät, wie sich ein Fenster anzeigen lässt, ohne dass es den Fokus bekommt. | ||
Autor: Martoeng | Bewertung: | Views: 18.645 |
www.martoeng.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Folgendes Szenario:
Ihre Anwendung läuft unsichtbar im Hintergrund. Bei bestimmte Ereignissen soll ein Info-Fenster eingeblendet werden, aber so, dass es die aktuelle aktive Anwendung nicht stört. D.h. das Fenster soll zwar sichtbar auf dem Bildschirm angezeigt werden, aber nicht den Fokus erhalten! Die Show-Methode, sowie die Visible-Eigenschaft der Form scheiden somit aus, da die Form in diesem Fall immer autom. zur aktiven Form wird.
Wie lässt sich das Fokus-Problem nun umgehen?
Wie so oft hilft uns auch diesmal wieder die Windows-API Trickkiste.
Option Explicit ' benötigte API-Deklarationen Private Declare Function SetWindowPos Lib "user32" ( _ ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal cx As Long, _ ByVal cy As Long, _ ByVal wFlags As Long) As Long Private Declare Function ShowWindow Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Private Const HWND_TOPMOST As Long = -1 Private Const SWP_NOACTIVATE As Long = &H10 Private Const SWP_NOMOVE As Long = &H2 Private Const SWP_NOSIZE As Long = &H1 Private Const SW_SHOWNOACTIVATE = 4
' Form anzeigen, ohne dass diese den Fokus erhält Load frmInfo ShowWindow frmInfo.hwnd, SW_SHOWNOACTIVATE SetWindowPos frmInfo.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _ SWP_NOACTIVATE + SWP_NOMOVE + SWP_NOSIZE
Dieser Aufruf der Form bewirkt, dass diese im Vordergrund angezeigt - aber doch im Hintergrund, d.h. die Form ist sichtbar, aber nicht aktiviert