Printable View
سلام
جهت طراحی یک فرم نیاز دارم بصورت همزمان هم قسمتهایی از فرم را حذف کنم و هم آن را بصورت
شیشه ای در بیاورم .
وقتی از تابع SetLayeredWindowAttributes Lib "user32.dll" استفاده می کنم ، یا کل فرم شفاف میشه
یا اون قسمت که میخوام ( مثلا رنگ مشکی ) حذف میشه و بقیه فرم دیگر شفاف نیست .
لطفا راهنمایی کنید .
متشکرم
ساده ست... كافيه كه مقدار آرگومان دوم تابع SetLayeredWindowAttributes رو برابر رنگي كه مي خوايد حذف بشه قرار بديد...!؟! مثلاً :نقل قول:
همين طور كه مي بينيد مقدار آرگومان دوم... برابرکد:
Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
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 SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
Dim Ret As Long
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
Call SetLayeredWindowAttributes(Me.hWnd, RGB(0, 0, 0), 128, LWA_COLORKEY Or LWA_ALPHA)
End Sub
کد:RGB(0,0,0)
كه يعني رنگ مشكي... مي تونيد اين مقدار رو برابر vbBlack هم قرار بديد...!؟!
آرگومان سوم هم شفافيت فرم رو مشخص مي كنه... كه ما اونو برابر 128 قرار داديم...!؟!
اينم يه ScreenShot از مثال...!؟! :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
موفق باشيد...!؟! :46:کد:http://028.-----.net/out.php/i243158_untitled.GIF