Sub ScrollView1_ScrollChanged(Position As Int)
ani.InitializeTranslate("ani",0,0,0,-11%y)
ani.Duration = 200
ani2.InitializeTranslate("ani2",0,0,0,11%y)
ani2.Duration = 200
If Abs(Position - mLastScrollY) > 5dip Then
If Position > mLastScrollY Then
Fab1.Hide(True)
ani.Start(pl)
ani.Start(ActionBar)
Else If Position < mLastScrollY Then
'
Fab1.Show(True)
ani2.Start(pl)
ani2.Start(ActionBar)
End If
End If
mLastScrollY = Position
End Sub
Sub ani_AnimationEnd
ActionBar.Top = ActionBar.Top + -11%y
pl.Top = pl.Top + -11%y
End Sub
Sub ani2_AnimationEnd
ActionBar.Top = ActionBar.Top + 11%y
pl.Top = pl.Top + 11%y
End Sub
سوال
mehmannavaz 1
سلام دوستان
چطوری میشه هنگام اسکرول کردن دوتا ویو رو با کتابخانه Animation Plus جابجا کرد در حالی که صفحه بهم نریزه ؟!
این سمپل آقای جانبراری هست که روی تب هاشون پیاده کرده که دقیقا من همینو میخوام!
البته از خودش پرسیدم گفت از Animation Translate باید استفاده کنم که انجام دادم فقط موقه اسکرول کردن ویو ها بهم میریزن لطفا یکی کمک کنه!
این سمپل آقای جانبراری
http://s6.picofile.com/file/8190768168/result.apk.html
اینم کد من
Sub ScrollView1_ScrollChanged(Position As Int) ani.InitializeTranslate("ani",0,0,0,-11%y) ani.Duration = 200 ani2.InitializeTranslate("ani2",0,0,0,11%y) ani2.Duration = 200 If Abs(Position - mLastScrollY) > 5dip Then If Position > mLastScrollY Then Fab1.Hide(True) ani.Start(pl) ani.Start(ActionBar) Else If Position < mLastScrollY Then ' Fab1.Show(True) ani2.Start(pl) ani2.Start(ActionBar) End If End If mLastScrollY = Position End Sub Sub ani_AnimationEnd ActionBar.Top = ActionBar.Top + -11%y pl.Top = pl.Top + -11%y End Sub Sub ani2_AnimationEnd ActionBar.Top = ActionBar.Top + 11%y pl.Top = pl.Top + 11%y End Subاینم فایل apk خود من
Http://s6.picofile.com/file/8230648784/AppCompatToolbar.apk
لینک ارسال
به اشتراک گذاری در سایت های دیگر
7 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.