عدد النقاط : 10
السلام عليكم و اهلا و سهلا بكم في موضوع اخر من مواضيع -دروس الفيجوال- درسنا اليوم يتكلم عن كيفية جعل الفورم شفاف اذا صح التعبير يصبح الفورم زجاجي .. نبدا على بركة الله كالعادة نفتح الفيجوال بيسك ثم 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
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
-]v,s hgtd[,hg- [ug hgt,vl atht