Ombre portée sur une WinForm sans bordure

En WinForms, vous pouvez simplement remplacer le formulaire est protégé CreateParams bien et ajoutez le CS_DROPSHADOW drapeau à la classe les styles. Par exemple:

public class ShadowedForm : Form {
    protected override CreateParams CreateParams {
        get {
            const int CS_DROPSHADOW = 0x20000;
            CreateParams cp = base.CreateParams;
            cp.ClassStyle |= CS_DROPSHADOW;
            return cp;
        }
    }

    //... other code ...
}

Mais, un couple de mises en garde...

1. Cet indicateur fonctionne uniquement sur les fenêtres de niveau supérieur. Dans Win32-parler, cela signifie que chevauchants et des fenêtres popup. Il n'a aucun effet sur l'enfant de windows (par exemple, le contrôle). Je croyais me souvenir audience quelque part que cette limitation a été supprimée à partir de Windows 8, mais je ne peux pas trouver un lien de confirmation de cela et je n'ai pas de Windows 8 est installé à des fins de test.

2. Il est possible que l'utilisateur a désactivé cette fonction en même temps. Si oui, vous n'obtiendrez pas d'ombre portée, peu importe comment vous les demandez. C'est par la conception. Votre application ne devraient pas tenter de remplacer cette demande. Vous pouvez déterminer si les ombres portées sont activées ou désactivées par P/Invoquant la SystemParametersInfo fonction et en passant le SPI_GETDROPSHADOW drapeau.

3. Le thème Aero ajoute également des ombres pour les fenêtres de niveau supérieur. Cet effet est séparée et distincte de CS_DROPSHADOWet travaille seulement lorsque Aero est activé. Il n'y a aucun moyen de l'éteindre et de le sur pour des fenêtres individuelles. En outre, puisque le thème Aero a été supprimé à partir de Windows 8, il n'aurai jamais ces ombres.

Humm ,,, Juste passé le code et vous obtiendrez la windows 7 de l'Ombre portée
comme ça >>> http://marcin.floryan.pl/wp-content/uploads/2010/08/WPF-Window-native-shadow.png

Imports System.Runtime.InteropServices
Public Class IMSS_SplashScreen
Private aeroEnabled As Boolean
Protected Overrides ReadOnly Property CreateParams() As CreateParams
Get
CheckAeroEnabled()
Dim cp As CreateParams = MyBase.CreateParams
If Not aeroEnabled Then
cp.ClassStyle = cp.ClassStyle Or NativeConstants.CS_DROPSHADOW
Return cp
Else
Return cp
End If
End Get
End Property
Protected Overrides Sub WndProc(ByRef m As Message)
Select Case m.Msg
Case NativeConstants.WM_NCPAINT
Dim val = 2
If aeroEnabled Then
NativeMethods.DwmSetWindowAttribute(Handle, 2, val, 4)
Dim bla As New NativeStructs.MARGINS()
With bla
.bottomHeight = 1
.leftWidth = 1
.rightWidth = 1
.topHeight = 1
End With
NativeMethods.DwmExtendFrameIntoClientArea(Handle, bla)
End If
Exit Select
End Select
MyBase.WndProc(m)
End Sub
Private Sub CheckAeroEnabled()
If Environment.OSVersion.Version.Major >= 6 Then
Dim enabled As Integer = 0
Dim response As Integer = NativeMethods.DwmIsCompositionEnabled(enabled)
aeroEnabled = (enabled = 1)
Else
aeroEnabled = False
End If
End Sub
End Class
Public Class NativeStructs
Public Structure MARGINS
Public leftWidth As Integer
Public rightWidth As Integer
Public topHeight As Integer
Public bottomHeight As Integer
End Structure
End Class
Public Class NativeMethods
<DllImport("dwmapi")> _
Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarInset As NativeStructs.MARGINS) As Integer
End Function
<DllImport("dwmapi")> _
Friend Shared Function DwmSetWindowAttribute(ByVal hwnd As IntPtr, ByVal attr As Integer, ByRef attrValue As Integer, ByVal attrSize As Integer) As Integer
End Function
<DllImport("dwmapi.dll")> _
Public Shared Function DwmIsCompositionEnabled(ByRef pfEnabled As Integer) As Integer
End Function
End Class
Public Class NativeConstants
Public Const CS_DROPSHADOW As Integer = &H20000
Public Const WM_NCPAINT As Integer = &H85
End Class