عرض مشاركة واحدة
قديم 07-17-2011, 02:48 AM   رقم المشاركة : 1 (permalink)
معلومات العضو
[Dz |Cracker
Th3 VHC
 
الصورة الرمزية [Dz |Cracker
 

 

 
إحصائية العضو








[Dz |Cracker غير متواجد حالياً

إرسال رسالة عبر MSN إلى [Dz |Cracker إرسال رسالة عبر Skype إلى [Dz |Cracker

 

 

إحصائية الترشيح

عدد النقاط : 10
[Dz |Cracker is on a distinguished road

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




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

كالعادة نفتح الفيجوال بيسك ثم 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 IntPtrByRef pMarinset As MARGINS) As Integer
    End 
Function

    Private 
Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.Handlemargins)
        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 !!!!



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

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



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

التوقيع


No Picture

Youtube : user/Crqcker27
Skype : dz.cracker27


 

   

رد مع اقتباس