Hallo Liebes VB Paradise,
Ich habe hier ein kleines Problemchen und zwar das sich in meine testform kein Aero einstellen lässt
hier der code :
Ich Hoffe ihr könnt mir helfen
Mfg Das Sorgen Kind
Code-Fresser
Ich habe hier ein kleines Problemchen und zwar das sich in meine testform kein Aero einstellen lässt
hier der code :
VB.NET-Quellcode
- Imports System.Runtime.InteropServices
- Public Class Form1
- <StructLayout(LayoutKind.Sequential)>
- Public Structure MARGINS
- Public Right As Integer
- Public Left 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 Object, ByVal e As System.EventArgs) Handles Me.Load
- Dim wtf As MARGINS = New MARGINS
- wtf.Left = -1
- wtf.Right = -1
- wtf.Top = -1
- wtf.Bottom = -1
- Dim hwnd As IntPtr = Handle
- Dim result As Integer = DwmExtendFrameIntoClientArea(hwnd, wtf)
- Me.BackColor = Color.Black
- End Sub
- End Class
Ich Hoffe ihr könnt mir helfen
Mfg Das Sorgen Kind
Code-Fresser