حذف قسمت های اضافی فرم

[omidparkour]

سلام
من داخل فرمم یک عکس گذاشتم و میخوام مثلا رنگ سفید اون عکس نمایش داده نشه(مثلا یک دایره ای که داخل دایره خاکستری هست و بیرون دایره سفید و این عکس رو داخل فرم میزارم و فرمم دایره ای شکل بشه)

لطفا راهنمایی کنین

[SlowCode]

سلام
این فایل رو به پروژت اضافه کن بعد خاصیت MaskColor رو روی رنگ سفید تنظیم کن.

[omidparkour]

شرمنده دقیقا متوجه نشدم که باید چی کنم؟؟؟؟

[mehran901]

Option Explicit
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.dll" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Const LWA_COLORKEY = &H1
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Const BM_SETSTATE = &HF3




Private Sub Form_Load()
Dim Ret As Long
Dim CLR As Long
Me.BackColor = RGB(255, 255, 255)
CLR = Me.BackColor
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hWnd, CLR, 0, LWA_COLORKEY
End Sub

با استفاده از APi بالا رنگ مشخصی رو از تو فرمتون میتونین حذف کنین اگه فقط هدف حذف قسمت خاصی هست نه رنگ خاصی مثلا برای بکگراند فرم :
در فرم لود me.backcolor = rgb(100,100,100)
و در کد بالا هم rgb رو به همین شکل مقدار بدین

[mahdivita]

من عکسی رو در فرم لود کردم اما قسمت های سفید عکس رو که باید نشون نده نشون میداد
چی باید کرد؟؟؟؟؟؟

[mehran901]

عزیزم کلی رنج رنگ سفید داریم!!! ببین RGB او بخش سفیدت که میخوای حذف بشه چیه... مقادیرش رو در CLR قرار بده
مثلا در کدبالا داریم
CLR = RGB(255,255,255)