bitcob589
شنبه 20 مهر 1392, 15:28 عصر
میتونید از دو کد زیر استفاده کنید
کد اول
Imports System.Runtime.InteropServices
Public Class Form1
<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)
''#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
کدی دوم
Imports System.Runtime.InteropServices
Public Class Form1
#Region " AERO STYLE "
<StructLayout(LayoutKind.Sequential)> _
Public Structure MARGINS
Public CXleftWIDTH As Integer
Public CXrightWIDTH As Integer
Public CYtopHEIGHT As Integer
Public CYbottomHEIGHT As Integer
End Structure
<DllImport("dwmapi.dll")> _
Public Shared Function DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, ByRef pmarinset As MARGINS) As Integer
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
Dim margins As MARGINS = New MARGINS
margins.CXleftWIDTH = 2
margins.CYtopHEIGHT = 60
margins.CXrightWIDTH = 2
margins.CYbottomHEIGHT = 30
Dim hwnd As IntPtr = Me.Handle
Dim resulet As Integer = DwmExtendFrameIntoClientArea(hwnd, margins)
End Sub
#End Region
End Class
از کجا می توانdllفایل dwmapi.dll دانلود نمود.