كود جعل الفورم شفاف بالفيجوال بيسك 6

---

اليوم جايب لكم كود يبحث عنه الكثير

كود جعل الفورم شفاف بالفيجوال بيسك . Visual Basic 6 .

ضع في الـ ( General )



كود PHP:


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


و في مكان تحميل الفورم
( Form Load )


كود PHP:


Private Sub Form_Load() SetWindowLong hwnd , GWL_EXSTYLE , GetWindowLong(hwnd , GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hwnd , 0 , 128 , LWA_ALPHA
End Sub


هدا مثال عن التطبيق



بالتوفيق