Comment faire une fenêtre Aero sans bugs

Signaler
Messages postés
58
Date d'inscription
mardi 21 septembre 2010
Statut
Membre
Dernière intervention
14 juillet 2013
-
Messages postés
97
Date d'inscription
mercredi 6 octobre 2010
Statut
Membre
Dernière intervention
5 juin 2015
-
Bonjour tout le monde,
J'ai fait une fenêtre avec le style Aero grace à un code trouve sur internet, mais le rendu est immonde, les textes sont transparents avec une énorme cadre noir et les autres textes sur les boutons et autres sont presque entièrement blanc, voilà le code:
Imports System.Runtime.InteropServices

Public Class Form1
    <Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> Public Structure MARGINS
        Public LeftWidth As Integer
        Public RightWidth As Integer
        Public TopHeight As Integer
        Public Buttomheight As Integer
    End Structure

    <Runtime.InteropServices.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
        Try
            Me.BackColor = Color.Black
            Dim margins As MARGINS = New MARGINS
            margins.LeftWidth = -1
            margins.RightWidth = -1
            margins.TopHeight = -1
            margins.Buttomheight = -1
            Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, margins)
        Catch ex As Exception
            MsgBox("Your operating system does not contain the required dll files to run this applicatio", vbCritical, "Fatal Error")
            Application.Exit()
        End Try
    End Sub
End Class


Merci beaucoup!

1 réponse

Messages postés
97
Date d'inscription
mercredi 6 octobre 2010
Statut
Membre
Dernière intervention
5 juin 2015
4
Bonjour
Pourrais-tu mettre un screenshot ?
Pour moi ça marche bien
Ah oui si les textes sont transparents, la fonction qui met l'Aero prend tout ce qui est noir, d'où le
Me.BackColor = Color.Black
.