پنل و عکس با گوشه‌های گرد

سوال

سلام دوستان
من میخوام گوشه های عکس و پنلم رو گرد کنم

در واقع می خوام عکس مربع باشه اما گوشه هاش گرد، نمی خوام کاملا گرد بشه
ممنون میشم راهنماییم کنید

 

حل شد 0
, 2019-12-02T09:13:43+03:30 1 پاسخ ها کاربر 0

پاسخ ( 1 )

  1. morteza
    0
    2019-12-02T23:48:01+03:30
    پاسخ

    سلام.

    از این ساب استفاده کن:

    Sub CircleImage(Image As Bitmap) As Bitmap
	Dim bmp As Bitmap
	bmp.InitializeMutable(200dip, 200dip)
	Dim cvs As Canvas
	cvs.Initialize2(bmp)
	Dim r As Rect
	r.Initialize(0, 0, bmp.Width, bmp.Height)
	cvs.DrawRect(r, Colors.Transparent, True, 0)
	Dim p As Path
	p.Initialize(0, 0)
	Dim jo As JavaObject = p
	Dim x = 100dip, y = 100dip, radius = 100dip As Float
	jo.RunMethod("addCircle", Array As Object(x, y, radius, "CW"))
	cvs.ClipPath(p)
	Dim r2 As Rect
	r2.Initialize(0, 0, cvs.Bitmap.Width, cvs.Bitmap.Height)
	cvs.DrawBitmap(Image, Null, r2)
	Return cvs.Bitmap
End Sub

    و به این شکل صداش بزن:

    img.Bitmap=CircleImage(img.Bitmap)

     

    بهترین پاسخ

ارسال یک پاسخ