تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود لشفايفة ايرو Aero Glass Effect
#1
السلام عليكم ورحمة الله وبركاته
احببت اليوم ان اضع بين ايدي اخوتي هذا الكود البسيط لعمل شفايفة للفورم ويمكن ان تضعه داخل كلاس منفرد وتجعله من ادواتك الخاصة

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

[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


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم