Virtual Developer Workshop: Containerized Development with Docker


In Part 1, we talked about translucent/transparent windows and we mentioned 'holes' and color. We will see how to make holes in a window in this part.

The steps are the same as in translucency (see Part 1). The only difference is in the parameters to the SetLayeredWindowAttributes function.

As we said, SetLayeredWindowAttributes is responsible for translucency. It can also make 'holes' in a window.

Public Declare Function SetLayeredWindowAttributes Lib "user32" _
   (ByVal hwnd As Long, ByVal color As Long, ByVal bAlpha As Byte, _
    ByVal alpha As Long) As Boolean

hwnd: Handle to layered window. ex Me.hwnd.

color: Color used to make areas of a window completely transparent.

bAlpha: Value between 0 (transparent) and 255 (opaque) for alpha blend function.

Flag: Value between 1 and 3. 1 for color, 2 for alpha, and 3 for both of them together.


SetLayeredWindowAttributes Me.hwnd, RGB(0, 255, 0), 0, 1

Setting color to a value, and setting flag to 1 will cause anything having our color value to become a 'hole.'

So, if we set color to RGB(0,255,0) and then we put a control with color value RGB(0, 255, 0), the portion of the window that the control occupies will become a 'hole' and we can see whatever's behind it.

Let's try it.

I will use a slightly modified version of the SetTranslucent function from Part 1. I'm going to add two parameters to it: Color and Flag. Here's the new SetTranslucent function:

Sub SetTranslucent(ThehWnd As Long, color As Long, nTrans _
                   As Integer, flag As Byte)
On Error GoTo ErrorRtn

   'SetWindowLong and SetLayeredWindowAttributes are API functions;
   'see MSDN for details
   Dim attrib As Long
   attrib = GetWindowLong(ThehWnd, GWL_EXSTYLE)
   SetWindowLong ThehWnd, GWL_EXSTYLE, attrib Or WS_EX_LAYERED
   'anything with color value color will completely disappear if
   'flag = 1 or flag = 3
      SetLayeredWindowAttributes ThehWnd, color, nTrans, flag
   Exit Sub
MsgBox Err.Description & " Source : " & Err.Source

End Sub

That's all there is to it.

Download the project, source, and executable all in one ZIP file.



  • not working, problem on my computer

    Posted by pushu on 03/18/2005 03:54pm

    this program does not work on my computer and shows an error code saying: cant find DLL entry point setlayeredwindowattribute in user32 source - translucent windows what is the problem and how may i rectify it? PHS

    • GetLayeredWindowAttribute

      Posted by Laszlo Goch on 10/06/2012 12:52pm

      You are trying to call the setlayeredwindowattribute function which does not exist. Try SetLayeredWindowAttributes. Notice the capital letters and the plural "s" at the end.

  • You must have javascript enabled in order to post comments.

Leave a Comment
  • Your email address will not be published. All fields are required.

Most Popular Programming Stories

More for Developers

RSS Feeds

Thanks for your registration, follow us on our social networks to keep up-to-date