br00_pwn
03.02.2010, 11:13
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 ClassGruß br00_pwn
Screen : http://www.fotos-hochladen.net/view/unbenannt2s0de84g.jpg[img]http//s1.directupload.net/images/100408/mvyfh6n8.jpg"] ("http://www.directupload.net)
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 ClassGruß br00_pwn
Screen : http://www.fotos-hochladen.net/view/unbenannt2s0de84g.jpg[img]http//s1.directupload.net/images/100408/mvyfh6n8.jpg"] ("http://www.directupload.net)