关于vb.net阴影编程实现的信息

Vb.net 窗体四周阴影效果

它们的窗体实际上就是你截图出来的大小，周围的阴影效果都是自己画出来的。

相关问答

Q1: VB.NET里面要使无边框的窗体有阴影该怎么做

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

using System.Runtime.InteropServices;

然后再窗口类vb.net阴影编程实现的随便哪个地方加上vb.net阴影编程实现：

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);

最后在窗体vb.net阴影编程实现的构造函数中加上：

SetClassLong(this.Handle, GCL_STYLE, GetClassLong(this.Handle, GCL_STYLE) | CS_DROPSHADOW);

Q2: VB.NET窗体阴影

vb.net2008

vb.net API 是将除特殊变量（如H20000）的Long都改成Integer

窗体的右侧和下方有阴影

Public Class Form1

Private Const CS_DROPSHADOW = H20000

Private Const GCL_STYLE = (-26)

Private Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer) As Integer

Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Long) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

SetClassLong(Me.Handle, GCL_STYLE, GetClassLong(Me.Handle, GCL_STYLE) Or CS_DROPSHADOW)

End Sub

End Class

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

设置全局变量：

   Dim drag As Boolean

    Dim mousex As Integer

    Dim mousey As Integer

假设vb.net阴影编程实现你想拖动vb.net阴影编程实现的是Panel1控件vb.net阴影编程实现，以及此控件上的 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

Q4: VB中如何实现类似于Win7桌面的字体阴影？

用LABEL控件可以完成：

在窗口上放上相同的两个LABEL控件，将控件的BACKSTYLE设置为0-TRANSPARENT，将下面那个控件的字体颜色改为阴影颜色，调整两个控件的LEFT和TOP，使文字稍微错位，这样就有了阴影的效果。

关于vb.net阴影编程实现和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。