[HowTo] VB.NET Aero Effekt ! inkl. Source-Code

[xUltraHighx™]

Servus Leute

Hier mal ein kleines Tutorial wie man eine Form durchsichtig macht, auch genannt "Areo Effekt" "mehr" dazu muss ich denke ich nicht sagen.

Video:

Source-Code

Imports System.Runtime.InteropServices
Public Class Form1
<StructLayout(LayoutKind.Sequential)> _
Public Structure MARGINS
Public Left As Integer
Public Right As Integer
Public Top As Integer
Public Bottom 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


Dim margins As MARGINS = New MARGINS
margins.Left = -1
margins.Top = -1
margins.Right = -1
margins.Bottom = -1
Dim hwnd As IntPtr = Handle
Dim results As Integer = DwmExtendFrameIntoClientArea(hwnd, margins)
Me.BackColor = Color.Black

End Sub
End Class

Bei Problemen oder anderes added mich in Skype.

Danke !

[alpines]

Ein Tutorial würde ich das nicht nennen, du postest einfach nur das Script und erklärst Null.
Das ist kein Tutorial sondern einfach nur C&P.

[xUltraHighx™]

Okay.

[snow]

Nachdem dein letztes Release bereits einfach kopiert war ( - ), ist das hier auch wieder einfach nur geklaut: - der Code ist seit 2 Jahren im Internet verfügbar.

Solltest du der Meinung sein, dass das dein Code ist, ist das immer noch kein Tutorial und gehört hier rein: