الحالة
موضوع مغلق

El-Safwa

عضو ماسـي
التسجيل
1/9/08
المشاركات
1,424
الإعجابات
95
الإقامة
FntzI.world
#1
مرحبا في المنتدى .... بقدم الكم كود لجعل الفورم شفاف و بتمنا ينال اعجابكم
في ال ( General )

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

Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long , ByValcrKey As Long , ByVal bAlpha As Byte , ByVal dwFlags As Long) As BooleanPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long , ByVal nIndex As Long , ByVal dwNewLong As Long) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long , ByVal nIndex As Long) As LongConst LWA_ALPHA = 2Const GWL_EXSTYLE = (-20)Const WS_EX_LAYERED = &H80000

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

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

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

Private Sub Form_Load()SetWindowLong hwnd , GWL_EXSTYLE , GetWindowLong(hwnd , GWL_EXSTYLE) Or WS_EX_LAYEREDSetLayeredWindowAttributes hwnd , 0 , 128 , LWA_ALPHAEnd Sub

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

لفجول بيسك 6
 

الحالة
موضوع مغلق

أعلى