_T!GeR_ .-( الرئاسه )-.
عدد المساهمات : 222 نقاط : 607 تاريخ التسجيل : 06/10/2010 العمر : 35 الموقع : top-egy.ahlamontada.com
| موضوع: كود جعل الفورم شفاف بالفيجوال بيسك الخميس أغسطس 09, 2012 3:57 pm | |
| اليوم جايب لكم كود يبحث عنه الكثير
كود جعل الفورم شفاف بالفيجوال بيسك . 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
هدا مثال عن التطبيق
بالتوفيق
| |
|