-دروس الفيجوال- جعل الفورم شفاف

[Dz |Cracker · 07-17-2011, 02:48 AM

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

كالعادة نفتح الفيجوال بيسك ثم creer project ثم windows form application

تظهر لنا هذه الصورة

نضغط ضغطة مزدوجة على الفورم لكي نصل الى خانة وضع الاكواد

نمحي كل شيئ حتى (ما هو ازرق في الصورة)

نحط هذا الكود

كود PHP:

  Imports System.Runtime.InteropServices

 
Public Class Form1

    <Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> Public Structure MARGINS

        Public LeftWidth As Integer

        Public RightWidth As Integer

        Public TopHeight As Integer

        Public Buttomheight As Integer

    End Structure

 
    <Runtime.InteropServices.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

        Try

            Me.BackColor = Color.Black

            Dim margins As MARGINS = New MARGINS

            margins.LeftWidth = -1

            margins.RightWidth = -1

            margins.TopHeight = -1

            margins.Buttomheight = -1

            Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, margins)

        Catch ex As Exception

            MsgBox("Sistemul tau de operare nu are aero style!", vbCritical, "Fatal Error")

            Application.Exit()

        End Try 

         Me.backcolor = color.black

    End Sub

End Class