29-09-12, 11:03 PM
السلام عليكم ورحمة الله وبركاته
احببت اليوم ان اضع بين ايدي اخوتي هذا الكود البسيط لعمل شفايفة للفورم ويمكن ان تضعه داخل كلاس منفرد وتجعله من ادواتك الخاصة
كما في الصورة التالية
[ATTACH=CONFIG]421[/ATTACH]
احببت اليوم ان اضع بين ايدي اخوتي هذا الكود البسيط لعمل شفايفة للفورم ويمكن ان تضعه داخل كلاس منفرد وتجعله من ادواتك الخاصة
كما في الصورة التالية
[ATTACH=CONFIG]421[/ATTACH]
كود :
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.Right = -1
margins.Top = -1
margins.Bottom = -1
Dim hwnd As IntPtr = Handle
Dim result As Integer = DwmExtendFrameIntoClientArea(hwnd, margins)
Me.BackColor = Color.Black
End Sub
End Class