هنا

[spyman]

السلام عليكم :

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

في الشفافية من خلال الكود .. رح نتطرق لهذا الشيء لاحقاً :

اول شيء افتح مشروع جديد وضع الكود ادناه في قسم التصريحات العامة :

Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByValcrKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Boolean
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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Const LWA_ALPHA = 2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000

لاحظ ان السطر المسؤول عن الشفافية هو :

Const LWA_ALPHA = 2

وكلما ازداد الرقم تزداد الشفافية وهكذا


وضع الكود ادناه في حدث الفورم ::

SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA

اتمنى لكم التوفيق

[Design Ghost]

حاولت هواي بس ما عرفت قسم التصريحات العامة وين موقعة بالبرنامج
اذا امكن ممكن توضي وشكرا لك سبايمان ^^

[spyman]

هلا بيك حازم

التصريحات العامة تكون فوق حدث الفورم

كما بالصورة ادناه :

[Design Ghost]

هلا بيك حازم

التصريحات العامة تكون فوق حدث الفورم

كما بالصورة ادناه :

عاااااااااااااااااااااااا ااا
شوكت اتغير اسمي هع

شكرا سباي للتوضيح ^^

[Design Ghost]

شكرا يا مبدع على الدرس البسيط يا مبدع

وهذا تطبيقي ^^

[امير النحل]

شكرا جزيلا سباي

[spyman]

ههههههه ارجو المعذرة اخي سجاد .. منورنا

--------------------------

الف هلا بالاخ الغالي ابو الحسن

[Design Ghost]

ههههههه ارجو المعذرة اخي سجاد .. منورنا

هههههههههه لا عادي خويه سباي حازم اخويه وماكو فرق هنه شكم حرف

[Sally]

شكرا لاثرائك المنتدى بكل ما هو مفيد.. تقييمي مع كل الود :))

[Ammar]

عاشت ايدك سباي مان ممكن سؤال هو شنو فائدة هذا الفورم ؟؟