شفاف(شیشه ای) کردن فقط فورم

[rainymbb]

چطور میشه فقط فرم رو شفاف(شیشه ای) کرد ودیگر ابزار هاش شفاف نشه
یعنی فرم کم رنگ بشه ولی اگه یک دکمه روی اون(فرم) بود کم رنگ نشه

[xxxxx_xxxxx]

نمونه برنامه ضمیمه به همین گونه است:

موفق باشید/

[vahid_d_0101]

این نمونه فقط فرم را شیشه ای میکنه ( چه شیشه ای هم میشه)

[xxxxx_xxxxx]

وحید تو برنامه ای که گذاشتی مقدار transparency قابل تغییر هست؟

[vahid_d_0101]

من این برنامه را تو فایل هایی که از خود این سایت گرفتم پیدا کردم
یه نگاه بهش انداختم گمون نکنم بشه درصد اونو تغییر داد یه نگاه به اون ماژول بنداز ببین میشه من که گمون نکنم

[sohrab o]

این نمونه فقط فرم را شیشه ای میکنه ( چه شیشه ای هم میشه)

این برنامه رو من خودم UPLOAD کردم اما فکر نکنم بشه مقدارشو عوض کرد

[sohrab o]

Option Explicit

Public Const GWL_EXSTYLE As Long = -20
Public Const WS_EX_LAYERED As Long = &H80000
Public Const LWA_ALPHA As Long = &H2

Public Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32.dll" ( _
ByVal hwnd As Long, _
ByVal crKey As Long, _
ByVal bAlpha As Byte, _
ByVal dwFlags As Long) As Long
Public Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Declare Function SetParent Lib "user32.dll" ( _
ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long

Public Sub SetTrans(ByVal OB_Hwnd As Long, ByVal OB_Val As Integer)

On Error Resume Next

Dim Attrib As Long
Attrib = GetWindowLong(OB_Hwnd, GWL_EXSTYLE)
SetWindowLong OB_Hwnd, GWL_EXSTYLE, Attrib Or WS_EX_LAYERED
SetLayeredWindowAttributes OB_Hwnd, RGB(0, 0, 0), OB_Val, LWA_ALPHA
FTransVal = OB_Val
Exit Sub

End Sub

[vahid_d_0101]

بله منم گفتم از همین سایت گرفتمش
اونجوری که منم دیدم فکر نکنم بشه درصد شفافیتش را عوض کرد اخه این اصلا شفاف نمیکنه یه تکه را پاک میکنه