cs_LycanOSX
Messages postés58Date d'inscriptionmardi 21 septembre 2010StatutMembreDernière intervention14 juillet 2013
-
19 janv. 2013 à 16:07
zippedfire
Messages postés98Date d'inscriptionmercredi 6 octobre 2010StatutMembreDernière intervention21 novembre 2023
-
29 janv. 2013 à 19:48
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
zippedfire
Messages postés98Date d'inscriptionmercredi 6 octobre 2010StatutMembreDernière intervention21 novembre 20239 29 janv. 2013 à 19:48
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