چرخش عکس با این کد

[mohammade79 127]

سلام بچه ها من میخوام با این کد عکس هایی رو که در ایمج ویو میندازم بچرخونم با یه عکس خاص میشه ولی وقتی عکس دیگه ای رو میخوای جایگزین کنی چجوری میشه کدش ؟ ممنون میشم کمکم کنید کارم تموم شد سورس پروژه رو براتون میذارم 

Dim y1 As RSImageProcessing
Private i1 As ImageView
Private SeekBar1 As SeekBar
y1.Initialize

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
	i1.SetBackgroundImage(y1.rotateBitmap(LoadBitmap(File.DirAssets,"aa.png"),Value))
	
End Sub

[مهران محمودی 778]

درود،

قبل از چرخش، عکس رو بعنوان Bitmap به ایمیج ویو خودتون بدید، برای چرخش به وسیله SeekBar فکر میکنم به اینصورت بتونید انجام بدید:

 

این رو:

 

 

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean) 
i1.SetBackgroundImage(y1.rotateBitmap(LoadBitmap(File.DirAssets,"aa.png"),Value)) 
End Sub

 

با:

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
	i1.SetBackgroundImage(y1.rotateBitmap(i1.Bitmap,Value))
End Sub

جایگزین کنید.

[mohammade79 127]

میشه بگید چجوری؟ ممنون میشم یعنی میخوم یه لیستی از عکس ها بذارم که هر کدوم رو زدی بره روی امیج ویو