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

سوال

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

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

 

حل شد 0
, ۱۳۹۸/۹/۱۱ ۹:۱۳:۴۳ 1 پاسخ ها کاربر 0

پاسخ ( 1 )

  1. morteza
    0
    ۱۳۹۸/۹/۱۱ ۲۳:۴۸:۰۱
    پاسخ

    سلام.

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

    ۱
    ۲
    ۳
    ۴
    ۵
    ۶
    ۷
    ۸
    ۹
    ۱۰
    ۱۱
    ۱۲
    ۱۳
    ۱۴
    ۱۵
    ۱۶
    ۱۷
    ۱۸
    ۱۹
    Sub CircleImage(Image As Bitmap) As Bitmap
    Dim bmp As Bitmap
    bmp.InitializeMutable(۲۰۰dip, ۲۰۰dip)
    Dim cvs As Canvas
    cvs.Initialize2(bmp)
    Dim r As Rect
    r.Initialize(۰, ۰, bmp.Width, bmp.Height)
    cvs.DrawRect(r, Colors.Transparent, True, ۰)
    Dim p As Path
    p.Initialize(۰, ۰)
    Dim jo As JavaObject = p
    Dim x = ۱۰۰dip, y = ۱۰۰dip, radius = ۱۰۰dip As Float
    jo.RunMethod("addCircle", Array As Object(x, y, radius, "CW"))
    cvs.ClipPath(p)
    Dim r2 As Rect
    r2.Initialize(۰, ۰, cvs.Bitmap.Width, cvs.Bitmap.Height)
    cvs.DrawBitmap(Image, Null, r2)
    Return cvs.Bitmap
    End Sub

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

    ۱
    img.Bitmap=CircleImage(img.Bitmap)

     

    بهترین پاسخ

ارسال یک پاسخ