Question

vb.net无边框窗口如何做出阴影效果？

我一开始的想法是在窗口四周加panel，然后把背景颜色设为透明，把窗口颜色的透明色设置为窗口的背景颜色（即让窗口透明），再把panel的背景图片设为由黑到白的图片（即50%Black到0%Black渐变），但是运行时发现显示的就是那张背景图片，没有渐变的透明效果，后来尝试把背景图片换为全透明的图片，运行时才有效果，也就是vb.net只对完全透明的图片有透明效果，只要有一点不透明（>0%）就不会有透明效果，显示的是原来的图片
请问如何实现无边框窗口的阴影效果？
（效果图Word2013）

Answer 1

调用系统API使窗体下拥有阴影效果

using System.Runtime.InteropServices;
然后再窗口类的随便哪个地方加上：
const int CS_DROPSHADOW = 0x20000;
const int GCL_STYLE = (-26);
//声明Win32 API
[DllImport("user32.dll", CharSet = CharSet.Auto)]
public static extern int SetClassLong(IntPtr hwnd,int nIndex,int dwNewLong);
[DllImport("user32.dll", CharSet = CharSet.Auto)]
public static extern int GetClassLong(IntPtr hwnd, int nIndex);

最后在窗体的构造函数中加上：
SetClassLong(this.Handle, GCL_STYLE, GetClassLong(this.Handle, GCL_STYLE) | CS_DROPSHADOW);