السلام عليكم و اهلا و سهلا بكم في موضوع اخر من مواضيع -دروس الفيجوال- درسنا اليوم يتكلم عن كيفية جعل الفورم شفاف اذا صح التعبير يصبح الفورم زجاجي .. نبدا على بركة الله
كالعادة نفتح الفيجوال بيسك ثم 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
شكرا لك سيلفستر الغامدي ردودك جعلتني اضع درسين في يوم واحد بالنسبة للقسم لا يمكنني ان اكتب فيه وحدي ففي اول موضوع قلت ان خبرتي محدودة وليس لدي كثير من دروس المهم شكرا لك على ردود مشجعة