A++ Transparent Forms **MUST SEE**
Makes forms transparent like glass- coooooool effect ... WinAmp3 uses the SAME effect under win2000 and XP!!! here on psc are some codes, but this is 10000 times better - it autoupdates, is very fast and you can adjust the effect from 0 to 254 please vote for me :-))
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
Public Sub Mache_Transparent(hWnd As Long, Rate As Byte) '### funktioniert nur unter Win2000 - XP !!! '### macht das Fenster, dessen hWnd übergeben wurde, transparent '### Rate: 254 = normal 0 = ganz transparent '### 190 ist z.B. ein guter Wert Dim WinInfo As Long WinInfo = GetWindowLong(hWnd, GWL_EXSTYLE) WinInfo = WinInfo Or WS_EX_LAYERED SetWindowLong hWnd, GWL_EXSTYLE, WinInfo SetLayeredWindowAttributes hWnd, 0, Rate, LWA_ALPHA End Sub
Original Comments (3)
Recovered from Wayback Machine