دیدین تو واتس اپ وقتی اسکرول میکنی به پایین اکشن بار میره بالا و موقع اسکرول به بالا اکشن بار میاد پایین
چطوری میتونم این کار رو انجام بدم
کتابخونه ای نداره؟
اینا روگذاشتم ولی قاطی میکمه و بهم میریزه
Sub sv_new_ScrollChanged(position As Int)
Dim ani As AnimationPlus
Dim ani2 As AnimationPlus
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
ani.Start(mst)
ani.Start(ActionBar)
Else If position < mLastScrollY Then
'
ani2.Start(mst)
ani2.Start(ActionBar)
End If
End If
mLastScrollY = position
End Sub
Sub ani_AnimationEnd
ActionBar.Top = ActionBar.Top + -11%y
mst.Top = mst.Top + -11%y
End Sub
Sub ani2_AnimationEnd
ActionBar.Top = ActionBar.Top + 11%y
mst.Top = mst.Top + 11%y
End Sub
سوال
majid08 266
سلام
دیدین تو واتس اپ وقتی اسکرول میکنی به پایین اکشن بار میره بالا و موقع اسکرول به بالا اکشن بار میاد پایین
چطوری میتونم این کار رو انجام بدم
کتابخونه ای نداره؟
اینا روگذاشتم ولی قاطی میکمه و بهم میریزه
Sub sv_new_ScrollChanged(position As Int) Dim ani As AnimationPlus Dim ani2 As AnimationPlus 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 ani.Start(mst) ani.Start(ActionBar) Else If position < mLastScrollY Then ' ani2.Start(mst) ani2.Start(ActionBar) End If End If mLastScrollY = position End Sub Sub ani_AnimationEnd ActionBar.Top = ActionBar.Top + -11%y mst.Top = mst.Top + -11%y End Sub Sub ani2_AnimationEnd ActionBar.Top = ActionBar.Top + 11%y mst.Top = mst.Top + 11%y End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
12 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.