طريقة جعل اليوزفورم شفاف Transparent userform

[علي الشيخ]

 

أتمنى من الله أن تكونوا جميعا في تمام الصحة والعافية

وإن شاء الله موضوع اليوم يكون جديد وخفيف وسهل التطبيق ومفيد للبعض على الأقل

 

الفكرة : هي جعل اليوزر فورم شفاف مع إمكانية التحكم في درجة الشفافية بما يتناسب مع إحتياجاتنا

والفائدة من هذا هو التنوع في شكل اليوزرفورم وأيضا يمكن أن يكون مفيدا بأنك تستطيع رؤية المحتوى

خلف اليوزفورم بدون أن تضطر إلى تحريكه خاصة في اليوزرفوم ذو الأبعاد الكبيرة.

 

 

طريقة التطبيق:

 

بعد تصميم اليوزفورم أو أي يوزر فورم حالي يتم الدخول إلى الكود الخاص باليوزرفوم

كليك يمين على الفورم ثم View Code

ثم نقوم بلصق الكود التالي في أعلى كود اليوزفورم قبل أي أكواد أخرى

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hWnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2&
Public hWnd As Long

ثانيا في Userform Initialize يتم نسخ وضع الكود التالي هكذا:

Private Sub UserForm_Initialize()
Dim bytOpacity As Byte
bytOpacity = 190 ' يمكنك تغيير درجة الشفافية بالتغيير ما بين القيم 0 إلى 255'
hWnd = FindWindow("ThunderDFrame", Me.Caption)
Call SetWindowLong(Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hWnd, 0, bytOpacity, LWA_ALPHA)
End Sub

 

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

يوزرفورم شفاف.rar

تم تعديل يونيو 2, 2015 بواسطه علي الشيخ

[ياسر خليل أبو البراء]

جزيت خير الجزاء أخي الحبيب علي الشيخ

بسم الله ما شاء الله عليك

أسلوب طرحك للموضوعات غاية في الروعة والجمال ..

 

لا حرمنا الله من إبداعاتك (فاصل بلا فواصل ...)