معرفة لون ال title bar للنافذة النشطة

بالنسبة للطلب الثاني

فورم شفاف

Transparent_.zip

شكرا جزيلا اخ mostafazidani بس ما قدرتش احمل المرفقات

بس مافيش حد يجاوبنى على الطلب الثانى :wacko:

اخي هاني بانسبة للطلب الاول اعرف جزئية منه وهي ان تستخدم الدالة

Declare Function GetSysColor Lib "user32" Alias "GetSysColor" (ByVal nIndex As Long) As Long

مع الوسيط التالي

Const COLOR_ACTIVEBORDER = 10 'Border of active window

سترجع قيمة وهي قيمة اللون لكن لم اعرف التعامل مع هذا الرقم

تحياتي

مصطفى زيداني

بالنسبة للطلب الثاني انسخ هذا الكود

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
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, 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 Sub SetTrans(hWnd As Long, v As Byte)
SetWindowLong hWnd, GWL_EXSTYLE, GetWindowLong(hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
 SetLayeredWindowAttributes hWnd, 0, v, LWA_ALPHA
End Sub







Private Sub Form_Load()
   SetTrans Me.hWnd, 100
End Sub