نمایش یک پنل به صورت انیمیشن

[yasin41 16]

سلام دوستان گلم

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

یک اکتیویتی

یک بانت

یک پنل

وقتی رو باتن کلیک شد پنلو به صورت یه انیمیشن بسیارزبیا نمایش دهد...انیمیشنی مثلا از چپ وارد صفحه شود...پنلم داراری یک بانت باشد که وقتی روش کلیک کردی به همان شیوه پنلو مخفی کنه

ممنون مشیم جوابمو بدین خیلی ممنون

[کاربر ناشناس 2,148]

با سلام

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

Sub Globals
	Private Panel1 As Panel
	Dim shayan As Animation
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("ani")
	shayan.InitializeAlpha("shayan" , 1 , 0)
	shayan.Duration = 1000
	shayan.RepeatCount = 1
	shayan.RepeatMode = shayan.REPEAT_REVERSE
	shayan.Start(Panel1)
End Sub