怎么将这段窗体半透明，改成frame半透明？

Question

下面的窗体的半透明效果，请问怎么能改成让frame1半透明，窗体不透明？    Dim sty As Long
    sty = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
    sty = sty Or WS_EX_LAYERED
    SetWindowLong Me.hwnd, GWL_EXSTYLE, sty
    SetLayeredWindowAttributes Me.hwnd, 0, 160, LWA_ALPHA

Answer 1

我在博客里写了一段半透明自定义控件的代码,半透明frame的实现原理跟它完全一样.

Answer 2

首先谢谢大哥，看了一下大哥的代码，如果用在frame上，那么frame上的其他控件，每个都需要单独调用才能透明。如果可以通过修改我贴出来的代码，那么在frame上运用，在他上面的所有控件也能一起半透明。

Answer 3

SetLayeredWindowAttributes只能实现窗口半透明，不能实现控件透明。