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

[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

كما في الصورة

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

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

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

المصدر: :: vBspiders Professional Network ::

-]v,s hgtd[,hg- [ug hgt,vl atht

Saad Ghamdi · 07-17-2011, 02:49 AM

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

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

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

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

[Dz |Cracker · 07-17-2011, 03:06 AM

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

Saad Ghamdi · 07-17-2011, 03:08 AM

العفو ،

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

التواصل المباشر مع الادارة والاعضاء القدامى من خلال قناة التلغرام

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

قسم البرمجة الكائنية