VB-Homepage Tipp 419

Hintergrund einer Form auf transparent setzen

Dieser Tipp gehört wohl eher in die Kategorie "nicht Praxistauglich", denn wozu sollten Sie den Hintergrund ausblenden. Wer dafür eine ernsthafte Verwendung hat, sollte mir diese mailen. Dennoch will ich diese Möglichkeit hier als Tipp vorstellen und wenn es nur mal darum geht, zu sehen, was alles möglich ist. Dabei gehört auch gar nicht viel Deklaration dazu. Allgemein/Deklarationen Const GWL_EXSTYLE = (-20) Const WS_EX_TRANSPARENT = &H20& Const SWP_FRAMECHANGED = &H20 Const SWP_NOMOVE = &H2 Const SWP_NOSIZE = &H1 Const SWP_SHOWME = SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE Const HWND_NOTOPMOST = -2 Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 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 Die Funktion SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME

Tipp-Download

Quelle :