Utilisation de dwmapi.dll avec vb.net

Soyez le premier à donner votre avis sur cette source.

Vue 11 009 fois - Téléchargée 531 fois

Télécharger le projet
Commenter

Description

Ceci est le module pour utiliser les apis de DWM (nouveauté Vista) avec Visual Basic. Ce code est une adaptation du tutoriel pour C# disponible ici : http://msdn.microsoft.com/fr-fr/magazine/cc163435.aspx

Exemples d'utilisation :

' obtient l'état de la transparence
If DwmIsCompositionEnabled() = True Then MsgBox("Vous utilisez le thème Vista Aero")

' étend la transparence sur le haut de la fenêtre de 50 pixels
DwmExtendFrameIntoClientArea(Me.Handle, New Margins(-2, 0, 0, 50))

' désactive la transparence (Windows Aero)
DwmEnableComposition(False)

Pour plus d'exemples d'utilisation, téléchargez le projet ci-dessous

Source / Exemple : 


Imports System.Runtime.InteropServices
Module DWM
    <StructLayout(LayoutKind.Sequential)> _
Public Structure Margins
        Public Sub New(ByVal left As Integer, ByVal right As Integer, ByVal top As Integer, ByVal bottom As Integer)
            _left = left
            _right = right
            _top = top
            _bottom = bottom
        End Sub
        Public Sub New(ByVal allMargins As Integer)
            _left = allMargins
            _right = allMargins
            _top = allMargins
            _bottom = allMargins
        End Sub
        Private _left As Integer
        Private _right As Integer
        Private _top As Integer
        Private _bottom As Integer
        Public Property Left() As Integer
            Get
                Return _left
            End Get
            Set(ByVal value As Integer)
                _left = value
            End Set
        End Property
        Public Property Right() As Integer
            Get
                Return _right
            End Get
            Set(ByVal value As Integer)
                _right = value
            End Set
        End Property
        Public Property Top() As Integer
            Get
                Return _top
            End Get
            Set(ByVal value As Integer)
                _top = value
            End Set
        End Property
        Public Property Bottom() As Integer
            Get
                Return _bottom
            End Get
            Set(ByVal value As Integer)
                _bottom = value
            End Set
        End Property
        Public ReadOnly Property IsMarginless() As Boolean
            Get
                Return (_left < 0 AndAlso _right < 0 AndAlso _top < 0 AndAlso _bottom < 0)
            End Get
        End Property
        Public ReadOnly Property IsNull() As Boolean
            Get
                Return (_left = 0 AndAlso _right = 0 AndAlso _top = 0 AndAlso _bottom = 0)
            End Get
        End Property
    End Structure
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure Rect
        Public stleft, sttop, stright, stbottom As Integer
        Public Sub Rect(ByVal left As Integer, ByVal top As Integer, ByVal right As Integer, ByVal bottom As Integer)
            stleft = left
            sttop = top
            stright = right
            stbottom = bottom
        End Sub
    End Structure
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure Dwm_ThumbnailProperties
        Public dwFlags As UInt64
        Public rcDestination As RECT
        Public rcSource As RECT
        Public opacity As Byte
        <MarshalAs(UnmanagedType.Bool)> _
        Public fVisible As Boolean
        <MarshalAs(UnmanagedType.Bool)> _
        Public fSourceClientAreaOnly As Boolean
        Public Const DWM_TNP_RECTDESTINATION As UInt32 = &H1
        Public Const DWM_TNP_RECTSOURCE As UInt32 = &H2
        Public Const DWM_TNP_OPACITY As UInt32 = &H4
        Public Const DWM_TNP_VISIBLE As UInt32 = &H8
        Public Const DWM_TNP_SOURCECLIENTAREAONLY As UInt32 = &H10
    End Structure
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure Dwm_BlurBehind
        Public dwFlags As UInt64
        <MarshalAs(UnmanagedType.Bool)> _
        Public fEnable As Boolean
        Public hRegionBlur As IntPtr
        <MarshalAs(UnmanagedType.Bool)> _
        Public fTransitionOnMaximized As Boolean
        Public Const DWM_BB_ENABLE As UInt32 = &H1
        Public Const DWM_BB_BLURREGION As UInt32 = &H2
        Public Const DWM_BB_TRANSITIONONMAXIMIZED As UInt32 = &H4
    End Structure
    <DllImport("dwmapi.dll", PreserveSig:=False)> _
    Public Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarInset As Margins) As Integer
    End Function
    <DllImport("dwmapi.dll", PreserveSig:=False)> _
    Public Function DwmIsCompositionEnabled() As Boolean
    End Function
    <DllImport("dwmapi.dll", PreserveSig:=False)> _
    Public Function DwmEnableBlurBehindWindow(ByVal hWnd As IntPtr, ByVal pBlurBehind As Dwm_BlurBehind) As Integer
    End Function
    <DllImport("dwmapi.dll", PreserveSig:=False)> _
    Public Function DwmEnableComposition(ByVal bEnable As Boolean)
    End Function
    <DllImport("dwmapi.dll", PreserveSig:=False)> _
    Public Function DwmGetColorizationColor(ByVal pcrColorization As Integer, <MarshalAs(UnmanagedType.Bool)> ByVal pfOpaqueBlend As Boolean)
    End Function
    <DllImport("dwmapi.dll", PreserveSig:=False)> _
    Public Function DwmRegisterThumbnail(ByVal dest As IntPtr, ByVal source As IntPtr) As IntPtr
    End Function
    <DllImport("dwmapi.dll", PreserveSig:=False)> _
    Public Function DwmUnregisterThumbnail(ByVal hThumbnail As IntPtr)
    End Function
    <DllImport("dwmapi.dll", PreserveSig:=False)> _
    Public Function DwmUpdateThumbnailProperties(ByVal hThumbnail As IntPtr, ByVal props As Dwm_ThumbnailProperties)
    End Function
    <DllImport("dwmapi.dll", PreserveSig:=False)> _
    Public Function DwmQueryThumbnailSourceSize(ByVal hThumbnail As IntPtr, ByVal size As Size)
    End Function
End Module

Conclusion :


Pour plus de documentation, visitez les sites web ci-dessous :
http://msdn.microsoft.com/fr-fr/magazine/cc163435.aspx
http://msdn.microsoft.com/en-us/library/aa969540.aspx
http://badger.developpez.com/tutoriels/dotnet/effet-glass-vista/

Note : pour l'instant, il semble avoir une erreur avec la fonction DwmEnableBlurBehindWindow
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Psychotronic Messages postés 21 Date d'inscription mardi 17 juillet 2007 Statut Membre Dernière intervention 17 décembre 2008
6 oct. 2008 à 01:10
Le hic, c'est que le DWM de Vista remplace seulement le noir en transparent. Tout ce que je peux dire, c'est qu'il serait possible de peindre les contrôles en noir sans pour autant les rendre transparent en utilisant GDI. Je n'ai pas essayé, je te recommande donc d'aller voir les sources incluses dans la conclusion.
Rifton007 Messages postés 4 Date d'inscription vendredi 15 janvier 2010 Statut Membre Dernière intervention 20 janvier 2010
3 oct. 2008 à 05:25
Salut, petite question. Etant donné que le noir est une couleur trés prisé.
Je voulais savoir que dois-je modifier dans le code pour modifier la couleur de fond.
thedeejay Messages postés 74 Date d'inscription dimanche 2 avril 2006 Statut Membre Dernière intervention 23 juin 2010
22 août 2008 à 22:57
10/10 (j'avais oublié de noter)
thedeejay Messages postés 74 Date d'inscription dimanche 2 avril 2006 Statut Membre Dernière intervention 23 juin 2010
22 août 2008 à 20:24
magnifique, superbe (etceatera...)
bref j'adore, je cherche ca depuis au mois... 3 jours :p
bref, incroyable, à mixer avec ca: http://www.codeplex.com/windowsformsaero
cs_Stephane84 Messages postés 16 Date d'inscription dimanche 19 février 2006 Statut Membre Dernière intervention 12 avril 2017
22 juil. 2008 à 18:18
Merci,

j'avais bien vu en C# cette ligne : "e.Graphics.FillRectangle(Brushes.Black, this.ClientRectangle); " mais comme je n'ai jamais reçu de formation en informatique... je n'ai pas su adapter en VB!
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.