منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود لشفايفة ايرو Aero Glass Effect - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : كود لشفايفة ايرو Aero Glass Effect (/showthread.php?tid=4624)



كود لشفايفة ايرو Aero Glass Effect - كلكامش الألكتروني - 29-09-12

السلام عليكم ورحمة الله وبركاته
احببت اليوم ان اضع بين ايدي اخوتي هذا الكود البسيط لعمل شفايفة للفورم ويمكن ان تضعه داخل كلاس منفرد وتجعله من ادواتك الخاصة

كما في الصورة التالية

[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