** B4X ShakeView **

[Salar82 919]

سلام به همه

با کد زیر میتونید یه افکت، که معمولا با نام Shake میشناسیمش رو به یه ویو داد که هم در b4a , b4i قابل استفاده هست:

Sub ShakeView (View As B4XView, Duration As Int)
   Dim Left As Int = View.Left
   Dim Delta As Int = 20dip
   For i = 1 To 4
       View.SetLayoutAnimated(Duration / 5, Left + Delta, View.Top, View.Width, View.Height)
       Delta = -Delta
       Sleep(Duration / 5)
   Next
   View.SetLayoutAnimated(Duration/5, Left, View.Top, View.Width, View.Height)
End Sub

 

این کد رو به اکتیویتی اضافه کنید و مثل زیر اون رو صدا بزنید:

Sub Button1_Click
   ShakeView(EditText1, 500)
End Sub

 

برای استفاده فقط در اندروید، میتونید B4XView رو به View تغییر بدید؛ اگر نه، باید کتابخونه xui رو به پروژه اضافه کنید.

 

نتیجه میشه یه چیزی مثل این:

 

موفق باشید