Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Transparente Fenster mit Hindernissen
Autor: gerry
Datum: 11.12.03 01:25
Hallo Leute, ich verwende folgende Code um in einer VBA-Anwendung die komplette Anwendung Semi-Transparent zu machen: Private Sub WindowTransparent(hWnd As Long, _ intProzent As Integer) On Error GoTo ERR_ERROR Dim lngExStyle As Long Dim lngTransparenz As Long lngExStyle = GetWindowLong(hWnd, GWL_EXSTYLE) lngExStyle = lngExStyle Or WS_EX_LAYERED SetWindowLong hWnd, GWL_EXSTYLE, lngExStyle lngTransparenz = (1 - intProzent / 100) * 255 SetLayeredWindowAttributes hWnd, 0, lngTransparenz, LWA_ALPHA ERR_EXIT: Exit Sub ERR_ERROR: If err < 0 Then Call ZeigeAnFehlermeldung("modWindow", "WindowTransparent", _ "Das System unterstützt diese Funktion nicht!") Else Call ZeigeAnFehlermeldung("modWindow", "WindowTransparent") End If Resume Next End Sub Das ganze wird mit Call WindowTransparent(Application.hWndAccessApp, intProzent) aufgerufen. Es funkt. auch ganz gut. Nur der Haken an der Sache: Nach Ausführen der Anwendung d.h. zur Entwicklungszeit hat der Windowsdesktop ein relativ merkwürdiges Verhalten. Verschiebe ich z.B. das Datenbankfenster, dann wird die Anwendung nicht refreshed. Das verschobene Fenster wird einfach nicht angezeigt. Ich muss die Anwendung - in diesem Fall Access - komplett minimieren und dann maximieren. Verschiebe ich jetzt neuerlich das Datenbankfenster, passiert wieder das gleiche. Erst wenn ich Access komplett beende und neu starte, passts wieder - bis ich die Funktion neuerlich ausführe. Weiss jemand von euch Rat??? Entwicklungsumgebung: Windows XP + Office XP/VBA

Transparente Fenster mit Hindernissen	468	gerry	11.12.03 01:25
Re: Transparente Fenster mit Hindernissen	282	MaLo	11.12.03 13:11
Re: Transparente Fenster mit Hindernissen	308	Stefan Rühl	11.12.03 14:33
Re: Transparente Fenster mit Hindernissen	345	gerry	11.12.03 15:00

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen