vb.net Form -- AERO Effekt

[br00_pwn]

Hab hier was nettes gefunden, womit ihr eure Form mit dem AERO Effekt ausstatten könnt...Etwas Style in die Tools bringen

Viel spass damit ...

Imports System.Runtime.InteropServices
 
Public Class Form1
 
    <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 Class

Gruß br00_pwn

Screen : http://www.fotos-hochladen.net/view/...nt2s0de84g.jpg

[HawK]

Kannst mal nen Screen machen, wie das aussehen würde?

Danke ~HawK

[On3m4nsh0w]

ja nen screen bitte

[superklo93]

Ich habe ma nen screnn gemacht^^

Bei Aktiven fenster:

Bei Inaktiven




so bitte ^^

[c2x]

Funktioniert bei mir nicht, hab an den Integern für die Form etwas rumgebastelt, allerdings haben auch die Standartwerte keine Auswirkungen.

Kann es sein, dass die "dwmapi.dll" fehlt ?

[Chazer2010]

jop die scheint zu fehlen... bei mir sieht das ähnlich bescheiden aus

[br00_pwn]

Geht ganz sicher.
Müßt den Hintergrund "schwarz" machen

LG br00_pwn

PS hier mal ein Screen =

http://www.fotos-hochladen.net/view/...nt2s0de84g.jpg


Nicht ganz, superklo93

[Chazer2010]

Jo hast Recht, man muss den Hinergrund auf Schwarz setzen bzw. Active.. irgendwas. Sieht super aus!

[c2x]

Dachte eher an einen Border-Aeroeffekt *shame*

[Th3_Cr4xX]

bei mir workts auch nich :/