رفتن به مطلب
  • 0

آموزش ساخت سورس نمایش فایل gif یا حرکتی


alivoll

سوال

سلام آیا کسی آموزش یا سورس داره که چند تا فایل gif یا همون عکس حرکتی رو تو یه صفحه لود کنه و موقع اجرا عکس ها کار کنه خیلی لازم دارم ممنون میشم کمکم کنین

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

8 پاسخ به این سوال تاکنون داده شده است

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

این سورس کد همه چی کاملاْ معلومه

ok.rar

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

این سورس کد همه چی کاملاْ معلومه

ok.rar

ایا میشه یه کاری کرد که بدون زدن دکمه عکس نمایش داده بشه ؟

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

@@alivoll,

بله میشه

در این قسمت از برنامه

Sub showgif_Click
		img.Initialize("img")
	Activity.Color = Colors.White 
	Activity.AddView(img,50%x - 21dip,50%y-21dip,42dip,42dip)
	ShowGifAnimation("test1.gif")
End Sub

قطعه کد داخلش که این میشه

img.Initialize("img")
	Activity.Color = Colors.White 
	Activity.AddView(img,50%x - 21dip,50%y-21dip,42dip,42dip)
	ShowGifAnimation("test1.gif")

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

Sub Activity_Create(FirstTime As Boolean)
	
Activity.LoadLayout("1")
		img.Initialize("img")
	Activity.Color = Colors.White 
	Activity.AddView(img,50%x - 21dip,50%y-21dip,42dip,42dip)
	ShowGifAnimation("test1.gif")
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

@@alivoll,

بله میشه

در این قسمت از برنامه

Sub showgif_Click
		img.Initialize("img")
	Activity.Color = Colors.White 
	Activity.AddView(img,50%x - 21dip,50%y-21dip,42dip,42dip)
	ShowGifAnimation("test1.gif")
End Sub

قطعه کد داخلش که این میشه

img.Initialize("img")
	Activity.Color = Colors.White 
	Activity.AddView(img,50%x - 21dip,50%y-21dip,42dip,42dip)
	ShowGifAnimation("test1.gif")

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

Sub Activity_Create(FirstTime As Boolean)
	
Activity.LoadLayout("1")
		img.Initialize("img")
	Activity.Color = Colors.White 
	Activity.AddView(img,50%x - 21dip,50%y-21dip,42dip,42dip)
	ShowGifAnimation("test1.gif")
End Sub

خب یه سوال دیگه؟؟؟

چجوری مثلا 4 تا یا بیشتر فایل gif رو اینجا فراخوانی کنم

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

@@alivoll,

ایمیج ویو بیشتر میسازید و داخل هر ایمیج ویو فایل گیف را فراخوانی میکنید به این صورت

	Dim img As ImageView 
	Dim img1 As ImageView 
	Dim img2 As ImageView 

در تابع کلیک

Sub showgif_Click
		img.Initialize("img")
		img1.Initialize("img1")
		img2.Initialize("img2")
		
		Timer1.Initialize("Timer1",0)
	Activity.Color = Colors.White 
	Activity.AddView(img,50%x - 21dip,10%y-21dip,42dip,42dip)
	Activity.AddView(img1,50%x - 21dip,40%y-21dip,42dip,42dip)
	Activity.AddView(img2,50%x - 21dip,60%y-21dip,42dip,42dip)
	ShowGifAnimation("test1.gif")
End Sub

و تایمر

Sub Timer1_Tick
Try
	Timer1.Enabled = False
	Frame = Frame + 1
	If Frame >= gif.FrameCount Then
		Frame = 0
	End If
	Timer1.Interval = gif.Delay(Frame)
	img.Bitmap = gif.Frame(Frame)
	img1.Bitmap = gif.Frame(Frame)
	img2.Bitmap = gif.Frame(Frame)
	Timer1.Enabled = True
Catch
	Timer1.Enabled = False
	Msgbox(LastException,"خطا")
End Try
End Sub

و نمایش گیف

Sub ShowGifAnimation(filename As String ) 

Try

	gif.DisposeFrames
	gif.Load(File.DirAssets, filename)
	Frame = 0
	Timer1.Interval = gif.Delay(Frame)	
	img.Bitmap = gif.Frame(Frame)
	img1.Bitmap = gif.Frame(Frame)
	img2.Bitmap = gif.Frame(Frame)
	img.Gravity = Gravity.FILL
	img1.Gravity = Gravity.FILL
	img2.Gravity = Gravity.FILL
	Timer1.Enabled = True
	gif.SaveFrame(0, File.DirRootExternal, "frame0.png", "P", 100)	
	gif.SaveFrame(0, File.DirRootExternal, "frame0.jpg", "J", 100)
	
Catch
	Msgbox(LastException,"خطا")
End Try

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

@@alivoll,

ایمیج ویو بیشتر میسازید و داخل هر ایمیج ویو فایل گیف را فراخوانی میکنید به این صورت

	Dim img As ImageView 
	Dim img1 As ImageView 
	Dim img2 As ImageView 

در تابع کلیک

Sub showgif_Click
		img.Initialize("img")
		img1.Initialize("img1")
		img2.Initialize("img2")
		
		Timer1.Initialize("Timer1",0)
	Activity.Color = Colors.White 
	Activity.AddView(img,50%x - 21dip,10%y-21dip,42dip,42dip)
	Activity.AddView(img1,50%x - 21dip,40%y-21dip,42dip,42dip)
	Activity.AddView(img2,50%x - 21dip,60%y-21dip,42dip,42dip)
	ShowGifAnimation("test1.gif")
End Sub

و تایمر

داداش ممنون از راهنمایتت اگه بشه واسه این یه سورس بساز بده من خوب متوج نشدم باید سورس ببینم

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

@@alivoll,

اینارو کپی کن تو سورست

:fekr:

باید سورس ببینم

من سورس دادم دیگه مگه چیز دیگه ای دادم :shout:

یکم برو توی قسمت تازه کار های سایت تاپیک های اونجارو حتماً حتماً بخون :viannen_44:

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

@@alivoll,

اینارو کپی کن تو سورست

:fekr:

 

 

من سورس دادم دیگه مگه چیز دیگه ای دادم :shout:

یکم برو توی قسمت تازه کار های سایت تاپیک های اونجارو حتماً حتماً بخون :viannen_44:

داداش من الان این کار کد ها رو زدم ولی یه مشکل دارم

ShowGifAnimation("test1.gif")

با این کد فایل ها فراخوانی میشه دیگه چجئری کنم مثلا سه تا فایل فراخوانی کنم

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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