在窗口中放入一幅图,将要去除的部分设置一个颜色,如以下的代码去除的颜色值为99,将下面代码拷贝如窗口代码
Private Sub Form_Load()
Dim rtn As Long
BorderStyler = 0
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, &H99, 0, LWA_COLORKEY '扣去窗口中的蓝色
End Sub