Forum de Fandeonepiece2

Bon dev :)


    [VB.net] Style aero sur une form

    Partagez
    avatar
    TheMonax !

    Messages : 333
    Date d'inscription : 06/05/2014
    Age : 18

    [VB.net] Style aero sur une form

    Message par TheMonax ! le Ven 23 Mai - 21:08

    Salut voila un petit code pour rendre vos forms transparent avec le style Aero Very Happy
    difficulté : Copier coller XD

    Code:
    #Region " Aero Style "
        <StructLayout(LayoutKind.Sequential)> _
        Public Structure MARGINS
            Public cxLeftWidth As Integer
            Public cxRightWidth As Integer
            Public cyTopHeight As Integer
            Public cyButtomheight 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 = -1
            margins.cxRightWidth = -1
            margins.cyTopHeight = -1
            margins.cyButtomheight = -1
            'set all the four value -1 to apply glass effect to the whole window
            'set your own value to make specific part of the window glassy.
            Dim hwnd As IntPtr = Me.Handle
            Dim result As Integer = DwmExtendFrameIntoClientArea(hwnd, margins)
        End Sub
    End Region

     il suffit juste de mettre la propriété Backcolor de la form a Black 
    Résulta : 


    Cordialement,
    TheMonax


    Dernière édition par TheMonax le Sam 24 Mai - 8:54, édité 1 fois
    avatar
    Ghost Eagle
    semi-modo
    semi-modo

    Messages : 174
    Date d'inscription : 03/05/2014
    Age : 15
    Localisation : Cameroun

    Re: [VB.net] Style aero sur une form

    Message par Ghost Eagle le Sam 24 Mai - 3:38

    Salut,

    Super tutoriel Very Happy !

    Cordialement
    avatar
    TheMonax !

    Messages : 333
    Date d'inscription : 06/05/2014
    Age : 18

    Re: [VB.net] Style aero sur une form

    Message par TheMonax ! le Sam 24 Mai - 7:56

    Merci beaucoup Very Happy
    avatar
    Aze (admin)
    Admin
    Admin

    Messages : 435
    Date d'inscription : 03/05/2014
    Age : 16
    Localisation : France

    Re: [VB.net] Style aero sur une form

    Message par Aze (admin) le Sam 24 Mai - 8:13

    re,
    en effet c'est sympas
    cordialement
    avatar
    Aze (admin)
    Admin
    Admin

    Messages : 435
    Date d'inscription : 03/05/2014
    Age : 16
    Localisation : France

    Re: [VB.net] Style aero sur une form

    Message par Aze (admin) le Sam 24 Mai - 8:14

    y manque pas un 
    Code:
    end region

    ?
    avatar
    TheMonax !

    Messages : 333
    Date d'inscription : 06/05/2014
    Age : 18

    Re: [VB.net] Style aero sur une form

    Message par TheMonax ! le Sam 24 Mai - 8:54

    Oui XD 
    Je fixe ça tout de suit
    avatar
    Aze (admin)
    Admin
    Admin

    Messages : 435
    Date d'inscription : 03/05/2014
    Age : 16
    Localisation : France

    Re: [VB.net] Style aero sur une form

    Message par Aze (admin) le Sam 24 Mai - 11:57

    thanks

    Contenu sponsorisé

    Re: [VB.net] Style aero sur une form

    Message par Contenu sponsorisé


      La date/heure actuelle est Mer 18 Oct - 8:32