Printable View
سلام...
دوستان من مي خوام كاري كنم كه برنامه ام خاصيت آيروگلس داشته باشه. چيزي كه به دهنم مي رهسه اينه
كه از محيطي كه برنامه در حال اجرا است رنگ هايش را وارد كنه و با رنگ خود برنامه ميانگين بگيره.
ولي مشكل اينه كه چه جوري بگم كه رنگ نقاطي با مختصات فرم برنامه را از محيط ويندوز وارد كنه؟
لطفا سورس api هم لطف كنيد...
باتشكر...
فکر کنم منظورت اینه که حالت شیشه ای پیدا کنه.
یعنی پشت فرم معلوم باشه چیه. درسته؟
دقيقا منظورم همين بود.
سلام.
این 2 api کارتو راه میندازه.
SetWindowLongA و SetLayeredWindowAttributes
اینا باید declare بشن
اینم تابعی که فرم رو براتون نیمه شفاف میکنه.کد: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
به این حالت میگن transparent یا نیمه شفاف. (نه اون چیزایی که شما گفتید)کد: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
منبع:
کد:http://www.a1vbcode.com/snippet-4134.asp
اين قابليتي كه شما گفتيد در win vista تحت عنوان خاصيت آيروگلس بيان مي شود. به هر حال خيـــــــــــــلي ممنونم.
راستي كدي كه براي نيمه شفاف كردن گفتي:
مستقل از اون يكي بالايش هست؟کد: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
خواهش میکنم. وظیفه بود.
در ضمن من کاری ندارم تو ویستا به این خاصیت چی میگن.
تا اونجایی که من اطلاع دارم، توی همه ی زمینه ها به این حالت، نیمه شفاف یا transparent میگن.
شما میتونید یه جستجو با این عنوانی که خودتون میگید بکنید و یه جستجو هم با عنوان نیمه شفاف.
اصلا ولش کن. بگذریم بهتره. چه فرقی میکنه آئرو گلس، یا نیمه شفاف.
declare يعني چي؟نقل قول:
برای اینکه بتونیم از توابع api تو برنامه هامون استفاده کنیم باید ابتدا اونهارو به برنامه معرفی (یا به عبارتی تعریف) کنیم.نقل قول:
به این کار اصطلاحا declare کردن میگن.