|
Short story: Create layered windows, to make forms translucent or irregularly shaped, using drop-in class.
Longer description from old site: click here.
To be edited...
This sample, or the one from which it originally derived, was published (or at least peripherally mentioned) in the following article(s):
- Produce Translucent Effects, Ask the VB Pro, VBPJ, October 2000
This sample uses the following API calls:
Module Library Function CTranslucent.cls kernel32
user32GetVersionEx
GetSysColor
GetWindowLong
SetLayeredWindowAttributes
SetWindowLong
UpdateLayeredWindowFTrans.frm gdi32
user32BitBlt
GetPixel
GetCursorPos
GetDC
ReleaseDC
ScreenToClient
WindowFromPointFWindowPicker.frm user32 GetCursorPos
GetParent
IsWindowVisible
ReleaseCapture
SetCapture
SetForegroundWindow
WindowFromPointMHookMe.bas kernel32
user32RtlMoveMemory
CallWindowProc
GetProp
GetWindowLong
SetProp
SetWindowLongMTransWnd.bas kernel32
user32GetVersionEx
GetParent
GetWindowLong
IsWindowVisible
SetLayeredWindowAttributes
SetWindowLongWinRgn.Frm gdi32
user32CreatePolygonRgn
CreateSolidBrush
DeleteObject
FillRgn
Polyline
GetCursorPos
GetSystemMetrics
GetWindowLong
ReleaseCapture
SendMessage
SetWindowLong
SetWindowPosDon't see what you're looking for? Here's a complete API cross-reference.
Please, enjoy and learn from this sample. Include its code within your own projects, if you wish. But, in order to insure only the most recent code is available to all, I ask that you don't share the sample by any form of mass distribution. Download Translucent.zip, 40Kb, Last Updated: Monday, July 10, 2000
The following resources may also be of interest: