گردکردن گوشه های تصاویر در بیسیک فور اندروید

عضویت در سایت

نام کاربری*

ایمیل*

رمزعبور*

تایید رمز عبور*

نام*

نام خانوادگی*

نام نمایشی*

تصویر پروفایل*

مرور

کشور*

شهر*

جنسیت* آقا

خانم

سایر

سن*

قوانین و مقررات* با تیک زدن این گزینه شما قوانین و مقررات را میپذیرید.

عضویت در سایت

رایگان ثبت نام کنید و سوالات خود را بپرسید، همچنین میتوانید در پاسخگویی به سوالات دیگر کاربران نیز سهیم باشید، هر مشکلی در ثبت نام یا ورود داشتید با ایمیل beporsam@gmail.com در ارتباط باشید

گردکردن گوشه های تصاویر در بیسیک فور اندروید

سلام

با یکی دیگر از آموزش های برنامه نویسی اندروید، با زبان بیسیک فور اندروید در خدمتتون هستیم، در این آموزش میخواهیم به شما یاد دهیم که چگونه میتوانید گوشه های تصاویر را گرد کنید تا ظاهر زیباتری داشته باشند، در ادامه همراه بپرسم باشید.

گرد کردن تصاویر b4a

آموزش:

ابتدا کتابخانه JavaObject را به پروژه خود اضافه کنید.
سپس در لایوت یک ImageView میسازیم و آن را در اکتیویتی تعریف میکنیم.

Sub Globals
	Private img As ImageView
End Sub

Sub Globals

Private img As ImageView

End Sub

در ادامه در ساب CircleImage کدهای مربوط به گرد کردن تصاویر را می نویسیم.

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 = 50dip, 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

۱۰

۱۱

۱۲

۱۳

۱۴

۱۵

۱۶

۱۷

۱۸

۱۹

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

مطلب پیشنهادی: آموزش ساخت کیلاگر با NotePad

در این ساب، و در این خط

Dim x = 50dip, y = 100dip, radius = 100dip As Float

۱	Dim x = ۵۰dip, y = ۱۰۰dip, radius = ۱۰۰dip As Float

اگر مقدار متغیر radius را تغییر دهید، میزان گردکردن گوشه های تصویر هم تغییر پیدا میکند.

سپس با استفاده از دستور زیر، ساب بالا را صدا میزنید و آن را مقداردهی میکنید:

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")
	
	img.SetBackgroundImage(LoadBitmap(File.DirAssets,"main_background.jpg"))
	
	img.Bitmap=CircleImage(img.Bitmap)
	
End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("main")

img.SetBackgroundImage(LoadBitmap(File.DirAssets,"main_background.jpg"))

img.Bitmap=CircleImage(img.Bitmap)

End Sub

ایتدا با استفاده از کدنویسی، تصویر را به ایمیج ویو نسبت میدهیم و سپس در خط بعدی، با استفاده از ساب نوشته شده، گوشه تصویرمان را گرد و منحنی شکل میکنیم.

امیدوارم که از این آموزش نهایت استفاده را برده باشید، مشکلی داشید در بخش پرسش و پاسخ سایت بپرسید.

موفق باشید.