1、打开VB6.0，创建工程
2、进入编写代码窗口，在如图位置添加下面的API函数代码'窗口透明APIPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long'窗口透明常数'Const WS_EX_LAYERED = &H80000Const GWL_EXSTYLE = (-20)Const LWA_ALPHA = &H2Const LWA_COLORKEY = &H1
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)参数就是要透明掉的颜色
4、OK，点击运行，窗口的透明化就实现了
5、下面介绍一下这个API函数的其它透明效果，参数的说明。Const LWA_ALPHA = &H2 '使用此参数，透明度有效，透明颜色无效Const LWA_COLORKEY = &H1 '使用此参数，透明度无效，透明颜色有效
6、在调用函数的语句中。如果使用LWA_ALPHA 参数，即SetLayeredWindowAttributes hwnd, RGB(0, 0, 0), 150, LWA_ALPHA则窗口中的控件也会透明，透明颜色会失效
7、在调用函数的语句中。如果使用LWA_COLORKEY 参数，即SetLayeredWindowAttributes hwnd, RGB(0, 0, 0), 150,LWA_COLORKEY则窗口中的控件不会透明，透明颜色会有效
