دوست عزيز خيلی سادست
اين کلاس
Imports System.Runtime.InteropServices
Imports System.Windows.Interop
Public Class AeroAccess
<DllImport("dwmapi.dll", PreserveSig:=False)> _
Private Shared Sub DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, ByRef margins As MARGINS)
End Sub
<DllImport("dwmapi.dll", PreserveSig:=False)> _
Private Shared Function DwmIsCompositionEnabled() As Boolean
End Function
Public Shared Function ExtendGlassFrame(ByVal window As Window, ByVal margin As Thickness) As Boolean
If Not DwmIsCompositionEnabled() Then
Return False
End If
Dim hwnd As IntPtr = New WindowInteropHelper(window).Handle
If hwnd = IntPtr.Zero Then
Throw New InvalidOperationException("The Window must be shown before extending glass.")
End If
' Set the background to transparent from both the WPF and Win32 perspectives
window.Background = Brushes.Transparent
HwndSource.FromHwnd(hwnd).CompositionTarget.Backgr oundColor = Colors.Transparent
Dim margins As New MARGINS(margin)
DwmExtendFrameIntoClientArea(hwnd, margins)
Return True
End Function
End Class
Structure MARGINS
Public Sub New(ByVal t As Thickness)
Left = CInt(t.Left)
Right = CInt(t.Right)
Top = CInt(t.Top)
Bottom = CInt(t.Bottom)
End Sub
Public Left As Integer
Public Right As Integer
Public Top As Integer
Public Bottom As Integer
End Structure
Public Enum DWMWINDOWATTRIBUTE
DWMWA_NCRENDERING_ENABLED = 1
' [get] Is non-client rendering enabled/disabled
DWMWA_NCRENDERING_POLICY
' [set] Non-client rendering policy
DWMWA_TRANSITIONS_FORCEDISABLED
' [set] Potentially enable/forcibly disable transitions
DWMWA_ALLOW_NCPAINT
' [set] Allow contents rendered in the non-client area to be visible on the DWM-drawn frame.
DWMWA_CAPTION_BUTTON_BOUNDS
' [get] Bounds of the caption ***on area in window-relative space.
DWMWA_NONCLIENT_RTL_LAYOUT
' [set] Is non-client content RTL mirrored
DWMWA_FORCE_ICONIC_REPRESENTATION
' [set] Force this window to display iconic thumbnails.
DWMWA_FLIP3D_POLICY
' [set] Designates how Flip3D will treat the window.
DWMWA_EXTENDED_FRAME_BOUNDS
' [get] Gets the extended frame bounds rectangle in screen space
DWMWA_LAST
End Enum
' Non-client rendering policy attribute values
Public Enum DWMNCRENDERINGPOLICY
DWMNCRP_USEWINDOWSTYLE
' Enable/disable non-client rendering based on window style
DWMNCRP_DISABLED
' Disabled non-client rendering; window style is ignored
DWMNCRP_ENABLED
' Enabled non-client rendering; window style is ignored
DWMNCRP_LAST
End Enum
Public Class GlassHelper
Public Const DWMWA_NCRENDERING_ENABLED As UInteger = 1
' [get] Is non-client rendering enabled/disabled
Public Const DWMWA_NCRENDERING_POLICY As UInteger = 2
' [set] Non-client rendering policy
Public Const DWMWA_TRANSITIONS_FORCEDISABLED As UInteger = 3
' [set] Potentially enable/forcibly disable transitions
Public Const DWMWA_ALLOW_NCPAINT As UInteger = 4
' [set] Allow contents rendered in the non-client area to be visible on the DWM-drawn frame.
Public Const DWMWA_CAPTION_BUTTON_BOUNDS As UInteger = 5
' [get] Bounds of the caption button area in window-relative space.
Public Const DWMWA_NONCLIENT_RTL_LAYOUT As UInteger = 6
' [set] Is non-client content RTL mirrored
Public Const DWMWA_FORCE_ICONIC_REPRESENTATION As UInteger = 7
' [set] Force this window to display iconic thumbnails.
Public Const DWMWA_FLIP3D_POLICY As UInteger = 8
' [set] Designates how Flip3D will treat the window.
Public Const DWMWA_EXTENDED_FRAME_BOUNDS As UInteger = 9
' [get] Gets the extended frame bounds rectangle in screen space
Public Const DWMWA_LAST As UInteger = 10
<DllImport("dwmapi.dll", PreserveSig:=False)> _
Private Shared Sub DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, ByRef margins As MARGINS)
End Sub
<DllImport("dwmapi.dll", PreserveSig:=False)> _
Private Shared Sub DwmSetWindowAttribute(ByVal hwnd As IntPtr, ByVal dwAttribute As UInteger, ByVal pvAttribute As IntPtr, ByVal cbAttribute As IntPtr)
End Sub
<DllImport("dwmapi.dll", PreserveSig:=False)> _
Private Shared Function DwmIsCompositionEnabled() As Boolean
End Function
Private Structure MARGINS
Public Sub New(ByVal t As Thickness)
Left = CInt(t.Left)
Right = CInt(t.Right)
Top = CInt(t.Top)
Bottom = CInt(t.Bottom)
End Sub
Public Left As Integer
Public Right As Integer
Public Top As Integer
Public Bottom As Integer
End Structure
Public Shared Function ExtendGlassFrame(ByVal window As Window, ByVal margin As Thickness) As Boolean
If Not DwmIsCompositionEnabled() Then
Return False
End If
Dim hwnd As IntPtr = New WindowInteropHelper(window).Handle
If hwnd = IntPtr.Zero Then
Throw New InvalidOperationException("The Window must be shown before extending glass.")
End If
' Set the background to transparent from both the WPF and Win32 perspectives
window.Background = Brushes.Transparent
HwndSource.FromHwnd(hwnd).CompositionTarget.Backgr oundColor = Colors.Transparent
Dim margins As New MARGINS(margin)
DwmExtendFrameIntoClientArea(hwnd, margins)
'DWMNCRENDERINGPOLICY ncrp = DWMNCRENDERINGPOLICY.DWMNCRP_DISABLED;
'hwnd = new WindowInteropHelper(window).Handle;
'DwmSetWindowAttribute(hwnd, DWMWA_NCRENDERING_POLICY, (IntPtr)ncrp, (IntPtr)sizeof(int));
Return True
End Function
End Class
اينم کپی کن تو کلاس پنجره
Protected Overloads Overrides Sub OnSourceInitialized(ByVal e As EventArgs)
MyBase.OnSourceInitialized(e)
AeroAccess.ExtendGlassFrame(Me, New Thickness(-1))
End Sub
100% کار ميکنه