دریافتAriaGifEncoder

[امین شاهدی 5,769]

AriaGifEncoder

مشاهده فایل

---

با سلام ، از طریق این کتابخونه خیلی ساده میتونین از طریق چند تا Bitmap فایل گیف بسازین 

* ساخت گیف از طریق نخ (Thread) جدا انجام میشه

نمونه کد : 

Sub Activity_Create(FirstTime As Boolean)
	
	Dim ariaGif As AriaGifEncoder
	ariaGif.Initialize("gif",File.DirRootExternal,"mGif.gif")
	ariaGif.Delay = 300
	ariaGif.AddFrame(LoadBitmap(File.DirAssets,"f1.jpg"))
	ariaGif.AddFrame(LoadBitmap(File.DirAssets,"f2.jpg"))
	ariaGif.AddFrame(LoadBitmap(File.DirAssets,"f3.jpg"))
	ariaGif.AddFrame(LoadBitmap(File.DirAssets,"f4.jpg"))
	ariaGif.Build

End Sub

Sub gif_BuildDone
	'dim gifFile as AriaFile = Sender
	ToastMessageShow("Gif sakhte shod",False)
End Sub

 

---

• ارسال کننده
  امین شاهدی
• ارسال
  ۱۶/۱۲/۱۸
• دسته
  کتابخانه ها