رفتن به مطلب

ارسال‌های توصیه شده

سلامی دوباره خدمت دوستان

خوب تو این آموزش قصد دارم یه آموزش مبنی بر لود کردن یه عکس متحرک بگم به نحوه کامل

خوب:

د میریم به قسمت دیزاینر یک button و یک image view ادد میکنیم

توی قسمت Process_Globals اینارو ادد میکنیم

Sub Process_Globals
Dim Timer1 As Timer
Dim Frame As Int
Timer1.Initialize("Timer1",0)
End Sub

خوب حالا تو قسمتGlobals اینارو اد میکنیم

Sub Globals

Dim gif As GifDecoder
Dim btnLoad As Button
Dim ImageView1 As ImageView

End Sub

خوب توقسمتActivity_Create میام Activity رو میخونیم

خوب حالا تو قسمت Activity_Pause این کارو میکنیم

Sub Activity_Pause (UserClosed As Boolean)
Timer1.Enabled = False
End Sub

خوب حالا تو قسمت button هم این کد هارو قرار میدیم

Sub btnLoad_Click
gif.DisposeFrames
gif.Load(File.DirAssets, "mo.gif")
ToastMessageShow(gif.FrameCount & " frames", True)
Frame = 0
Timer1.Interval = gif.Delay(Frame)	
ImageView1.Bitmap = gif.Frame(Frame)
Timer1.Enabled = True
gif.SaveFrame(0, File.DirRootExternal, "frame0.png", "P", 85)	
gif.SaveFrame(0, File.DirRootExternal, "frame0.jpg", "J", 85)
End Sub

و در آخر هم Timer رو میگیم

Sub Timer1_Tick
Timer1.Enabled = False
Frame = Frame + 1
If Frame >= gif.FrameCount Then
	Frame = 0
End If
Timer1.Interval = gif.Delay(Frame)	
ImageView1.Bitmap = gif.Frame(Frame)
Timer1.Enabled = True
End Sub

اینم عکس متحرک

[ATTACH=CONFIG]232[/ATTACH]

لینک ارسال
به اشتراک گذاری در سایت های دیگر

خسته نباشی نیماجان

فک کنم لایب Gif Decoder رو هم بخواد نیما یا اینکه من اشتباه می کنم؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

باسلام

ممنون از مجید عزیز

من که خود برنامه داشت حالا شاید بعضی از دوستان ندارن

اینم از لایبری برنامه

Gif Decoder

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 1 سال بعد...

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...