vb.net – 如何在没有边框的Windows窗体上获得Aero Glass?
我正在尝试使用DWM API在VB.NET 2010应用程序中查看Aero Glass的表单,但是正如函数调用所示,它将Frame的外观扩展到客户区,如果表单没有边框,则不会发生任何事情和形式将变得无形.那么,我可以在没有任何边框的情况下获得Aero玻璃吗?
正如您所说,DwmExtendFrameIntoClientArea将窗口框架的透明玻璃效果扩展到其客户区域,这意味着如果表单的FormBorderStyle设置为“None”,则您的窗口将实际上不可见.
相反,您需要使用 因此,您还必须定义 以下是您必须在代码中包含以使用此函数的最终API声明: <StructLayout(LayoutKind.Sequential)> _ Private Structure DWM_BLURBEHIND Public dwFlags As Integer Public fEnable As Boolean Public hRgnBlur As IntPtr Public fTransitionOnMaximized As Boolean End Structure Private Const DWM_BB_ENABLE As Integer = &H1 Private Const DWM_BB_BLURREGION As Integer = &H2 Private Const DWM_BB_TRANSITIONONMAXIMIZED As Integer = &H4 <DllImport("dwmapi.dll",PreserveSig:=False)> _ Private Shared Sub DwmEnableBlurBehindWindow(ByVal hWnd As IntPtr,ByRef pBlurBehind As DWM_BLURBEHIND) End Sub 然后,这是一个如何在特定表单上调用此函数的简单示例: Protected Overrides Sub OnLoad(ByVal e As System.EventArgs) MyBase.OnLoad(e) ''#Set the form's border style to None Me.FormBorderStyle = FormBorderStyle.None ''#Whatever region that you fill with black will become the glassy region ''# (in this example,the entire form becomes transparent) Me.BackColor = Color.Black ''#Create and populate the blur-behind structure Dim bb As DWM_BLURBEHIND bb.dwFlags = DWM_BB_ENABLE bb.fEnable = True bb.hRgnBlur = Nothing ''#Enable the blur-behind effect DwmEnableBlurBehindWindow(Me.Handle,bb) End Sub 相反,如果您只想将模糊效果应用于表单的特定子区域,则需要为hRgnBlur成员提供有效区域,并将DWM_BB_BLURREGION标志添加到dwFlags成员. 您可以使用 Protected Overrides Sub OnLoad(ByVal e As System.EventArgs) MyBase.OnLoad(e) ''#Set the form's border style to None Me.FormBorderStyle = FormBorderStyle.None ''#Fill the entire form with black to make it appear transparent Me.BackColor = Color.Black ''#Create a region corresponding to the area of the form you want to render as glass Using g As Graphics = Me.CreateGraphics Dim glassRect As New Rectangle(0,100,150) Using rgn As New Region(glassRect) ''#Create and populate the blur-behind structure Dim bb As DWM_BLURBEHIND bb.dwFlags = DWM_BB_ENABLE Or DWM_BB_BLURREGION bb.fEnable = True bb.hRgnBlur = rgn.GetHrgn(g) ''#Enable blur-behind effect DwmEnableBlurBehindWindow(Me.Handle,bb) End Using End Using End Sub 注意,即使指定一个特定的子区域来应用模糊效果,我仍然将整个表单的背景颜色设置为黑色?这将导致我们指定的区域呈现玻璃般的模糊效果,并且表单的其余部分显示为透明.当然,您可以将表单背景颜色的其余部分设置为您想要的任何颜色(尽管确保填充您想要显示为黑色的玻璃矩形,如前所述),但它将显示为部分透明,没有玻璃般的模糊效果. MSDN解释了为什么会这样:
就我而言,这使得将这种效果仅应用于窗体窗口的一个子区域相对毫无价值.在我看来它唯一可能有意义的是,如果你想将任意非矩形形状渲染为玻璃状,其余形状保持透明. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |