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

[[Dz |Cracker]

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

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

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

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

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

نحط هذا الكود

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

كما في الصورة

بعدها شغل البرنامج و voila !!!!

اراكم في درس اخر انشاء الله

دمتم في رعاية الله​

 

[Saad Ghamdi]

جاري تقييمك ياكنق ،

ولاكن لو تطلب من الأدارة فتح ، قسم خاص فيك ،

وتضع جميع دروس " الفيجول ، الفيجول بيسك " فيه ؟!

شاكر لك على الجهود الملحوظه يابطل

 

[[Dz |Cracker]

شكرا لك سيلفستر الغامدي ردودك جعلتني اضع درسين في يوم واحد بالنسبة للقسم لا يمكنني ان اكتب فيه وحدي ففي اول موضوع قلت ان خبرتي محدودة وليس لدي كثير من دروس المهم شكرا لك على ردود مشجعة​

 

[Saad Ghamdi]

العفو ،

واصل ، ابداعاتك ، والله انت مبدع ، :grrrrrr: