حرکت متن مثل نوشته های اول فیلم ها

[vahid_d_0101 31]

سلام من برای قسمت معرفی برنامه ام میخوام متن ها را مثل نوشته فیلم ها از بالا به پایین ببرم 

ایا این کار ممکن است ؟>

[حاج حسین 2,098]

سلام من برای قسمت معرفی برنامه ام میخوام متن ها را مثل نوشته فیلم ها از بالا به پایین ببرم 

ایا این کار ممکن است ؟>

بله میشه 

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

میتونید از کتابخانه انمیشن استفاده کنید یا از ویژگی Label1.SetLayoutAnimated خود b4a و بدون کتابخانه خاصی 

استفاده کنید 

اول جانمایی اولیه خود لیبلو بدید بعد با همین ست لایوت انمیشن تا جایی که میخاد پایین بیاد بهش بدید

[parham01 82]

سلام دوست عزیز

 اول کتابخانه زیر را دانلود کنید

http://s6.picofile.com/file/8235455400/library.zip.html

#Region Module Attributes
	#FullScreen: True
	#IncludeTitle: True
	#ApplicationLabel: ICOSSlideAnimation
	#VersionCode: 14
	#VersionName: 1.4
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: False
#End Region
' " مرادیان حسین "
Sub Process_Globals
End Sub

Sub Globals
	Dim a As ICOSSlideAnimation
	Dim label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Anim2")

End Sub

Sub Activity_Resume
End Sub

Sub b1_Click
	a.SlideFadeFromLeft("a",600,2000)
	a.StartAnim(label1)
End Sub

Sub b2_Click
	a.SlideFadeToLeft("a",600,2000)
	a.StartAnim(label1)
End Sub

Sub b3_Click
	a.SlideFadeFromRight("a",600,2000)
	a.StartAnim(label1)
End Sub

Sub b4_Click
	a.SlideFadeToRight("a",600,2000)
	a.StartAnim(label1)
End Sub

Sub b5_Click
	a.SlideFadeFromTop("a",600,2000)
	a.StartAnim(label1)
End Sub

Sub b6_Click
	a.SlideFadeToTop("a",600,2000)
	a.StartAnim(label1)
End Sub

Sub b7_Click
	a.SlideFadeFromBottom("a",1200,2000)
	a.StartAnim(label1)
End Sub

Sub b8_Click
	a.SlideFadeToBottom("a",1200,2000)
	a.StartAnim(label1)
End Sub

Sub b9_Click
	a.SlideFromLeft("a",600,2000)
	a.StartAnim(label1)
End Sub

Sub b10_Click
	a.SlideToLeft("a",600,2000)
	a.StartAnim(label1)
End Sub

Sub b11_Click
	a.SlideFromRight("a",600,2000)
	a.StartAnim(label1)
End Sub

Sub b12_Click
	a.SlideToRight("a",600,2000)
	a.StartAnim(label1)
End Sub

Sub b13_Click
	a.SlideFromTop("a",600,2000)
	a.StartAnim(label1)
End Sub

Sub b14_Click
	a.SlideToTop("a",600,2000)
	a.StartAnim(label1)
End Sub

Sub b15_Click
	a.SlideFromBottom("a",1200,2000)
	a.StartAnim(label1)
End Sub

Sub b16_Click
	a.SlideToBottom("a",1200,2000)
	a.StartAnim(label1)
End Sub

Sub b17_Click
	a.SlideFromLeftToRight("a",600,2000)
	a.StartAnim(label1)
End Sub

Sub b18_Click
	a.SlideFromRightToLeft("a",600,2000)	
	a.StartAnim(label1)
End Sub

Sub b19_Click
	a.SlideFromTopToBottom("a",1200,2000)
	a.StartAnim(label1)
End Sub

Sub b20_Click
a.SlideFromBottomToTop("a",1200,2000)		
a.StartAnim(label1)
End Sub

Sub a_animationend
	ToastMessageShow("Done",True)
End Sub
' " مرادیان حسین "

توضیح مختصر :

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

بعد تعداد 20 تا باتن ایجاد کردیم

که هر کدوم یه انیمیشن خاص به متن شما میدن

 

" پسندیدم فراموش نشه "

[vahid_d_0101 31]

اقا دستتون درد نکنه

فقط یه سوال با انیمشن مگه میشه 

انیمیشن که فقط چندتا حالت داره که هیچ کدومش این جور چیزی نیست