Vb.net 无边框窗体如何实现四周阴影？ 网上搜到的都是两边阴影的，我需要四周阴影

设置全局变量：

   Dim drag As Boolean

    Dim mousex As Integer

    Dim mousey As Integer

假设你想拖动的是Panel1控件，以及此控件上的 Label1（用于显示标题）和PictureBox4（用于显示图标）：

    Private Sub TitleMove_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown, Label1.MouseDown, PictureBox4.MouseDown

        drag = True

        mousex = Windows.Forms.Cursor.Position.X - Me.Left

        mousey = Windows.Forms.Cursor.Position.Y - Me.Top

    End Sub

    Private Sub TitleMove_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove, Label1.MouseMove, PictureBox4.MouseMove

        If drag Then

            Me.Top = Windows.Forms.Cursor.Position.Y - mousey

            Me.Left = Windows.Forms.Cursor.Position.X - mousex

        End If

    End Sub

    Private Sub TitleMove_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp, Label1.MouseUp, PictureBox4.MouseUp

        drag = False

    End Sub

您可以使用两个label控件,其中上面的那个背景设为透明,下面的那个文字颜色设置为深色(阴影色),然后把两上标签的文字大小\内容等设置为一样,两个放在一起,稍微错开点,就实现了阴影效果了.

---