Forum de Fandeonepiece2

Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Forum de Fandeonepiece2

Bon dev :)

Le Deal du moment :
Manga Chainsaw Man : où acheter le Tome 17 ...
Voir le deal
19.99 €

3 participants

    [VB.net] Style aero sur une form

    TheMonax !
    TheMonax !


    Messages : 334
    Date d'inscription : 06/05/2014
    Age : 25

    [VB.net] Style aero sur une form  Empty [VB.net] Style aero sur une form

    Message par TheMonax ! 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 : 
    [VB.net] Style aero sur une form  Captur12

    Cordialement,
    TheMonax


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


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

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

    Message par Ghost Eagle Sam 24 Mai - 3:38

    Salut,

    Super tutoriel Very Happy !

    Cordialement
    TheMonax !
    TheMonax !


    Messages : 334
    Date d'inscription : 06/05/2014
    Age : 25

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

    Message par TheMonax ! Sam 24 Mai - 7:56

    Merci beaucoup Very Happy
    Aze (admin)
    Aze (admin)
    Admin
    Admin


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

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

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

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


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

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

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

    y manque pas un 
    Code:
    end region

    ?
    TheMonax !
    TheMonax !


    Messages : 334
    Date d'inscription : 06/05/2014
    Age : 25

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

    Message par TheMonax ! Sam 24 Mai - 8:54

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


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

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

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

    thanks

    Contenu sponsorisé


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

    Message par Contenu sponsorisé


      La date/heure actuelle est Jeu 28 Mar - 21:55