透明窗口、透明边框两难全?
希望做一个椭圆型的窗体,用了以下方法
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Dim rtn As Long
BorderStyler = 0
rtn = GetWindowLong(hWnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hWnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hWnd, RGB(252, 3, 21), 0, LWA_COLORKEY
结果无论怎么弄,都无法去掉窗体的边框。请高手指教了。