انیمیشن دادن به ScrollView به هنگام اسکرول شدن

[qasem 249]

سلام دوستان میخوام هنگامی که ScrollView اسکرول میشه با یه انیمیشن این اتفاق بیفته ؟

[qasem 249]

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

[zaro 12]

یه سرچی بزن تو گوگل یعد یه فایل انیمیشن اسکرول یا MOVE هست دانلودش کن

[zaro 12]

بیا فکر کنم همین باشه SCR-ANIM

[qasem 249]

دوستان کسی دیگه ای نیست که مشکل ما را حل کنه؟

[qasem 249]

در حال انتظار..... :morning2:

[qasem 249]

شاید این دفعه پاسخ دهد شاید...

[qasem 249]

دوستان كسي نيست پاسخ دهد؟

[qasem 249]

یکی پاسخ ما را هم بده ...

[mahfelsoft 130]

یعنی چی دقیقا ؟ من نشنیدم که اسکرول ویو انیمیشن داشته باشه . تنیمشین دادن به ویوها برای لود شدن زیاد هستن . مثلا به لیبل و باتن و ... اما به اسکرول ویو نه .

شما نمونه اس نداری ببینم منظورت چیه ؟

[qasem 249]

منظورم خود اسکرول ویو نیست بلکه انیمیشن دادن به پنل هایی است که توی اسکرول ویو( برای نشان دادن عنوان های مطالب) لود میشه.

[porya 959]

سلام دوست عزیز اگه با دیتابیس مطالبت رو لود میکنی میتونی از کد زیر استفاده کنی کتابخونه animation plus رو هم فعال کن...

 

کدهای sub globals

Sub Globals

	Dim sql1 As SQL
	Dim cursor1 As Cursor
	Private ScrollView1 As ScrollView
	Dim stop As Int = 1%y
	
End Sub

کدهای activity create

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("scroll")
	
	If File.Exists(File.DirInternal,"porya.db") = False Then
	File.Copy(File.DirAssets,"porya.db",File.DirInternal,"porya.db")
	End If
	
	If sql1.IsInitialized = False Then
	sql1.Initialize(File.DirInternal,"porya.db",True)
	End If
	
	cursor1 = sql1.ExecQuery("SELECT * FROM tbl")
	
	For i = 0 To cursor1.RowCount-1
	cursor1.Position = i
	
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,stop,88.2%x,100%y)
	stop = stop + 16%y
	p.LoadLayout("panel")
	Dim anim As AnimationPlus
	anim.InitializeScaleCenter("a1",0,0,1,1,p)
	anim.Duration=1500
	anim.Start(p)
	ScrollView1.Panel.Height = stop
	Next

End Sub