VB6.0使窗口透明化

2024-10-11 20:57:24

1、打开VB6.0，创建工程

3、在窗口的加载事件里添加如下代码'''''''''''''''''''''窗体透明'''''''''''''''Dim rtn As LongMe.BackColor = RGB(0, 0, 0)'设置一下窗口的颜色rtn = GetWindowLong(hwnd, GWL_EXSTYLE)rtn = rtn Or WS_EX_LAYEREDSetWindowLong hwnd, GWL_EXSTYLE, rtnSetLayeredWindowAttributes hwnd, RGB(0, 0, 0), 150, LWA_ALPHA'RGB(0, 0, 0)参数就是要透明掉的颜色

5、下面介绍一下这个API函数的其它透明效果，参数的说明。Const LWA_ALPHA = &H2 '使用此参数，透明度有效，透明颜色无效Const LWA_COLORKEY = &H1 '使用此参数，透明度无效，透明颜色有效

7、在调用函数的语句中。如果使用LWA_COLORKEY 参数，即SetLayeredWindowAttributes hwnd, RGB(0, 0, 0), 150,LWA_COLORKEY则窗口中的控件不会透明，透明颜色会有效