انیمیشن لرزش یک ویو(مانند EditText) در بیسیک۴اندروید

با این تکه کد میتونید مثل برنامه بازار ویا… مثلاً موقعی که ادیت تکست خالیه و دکمه سرچ کلیک شد در ادیت تکست لرزش ایجاد کنید.

نمونه:

 

کتابخانه انیمیشن رو تیک بزنید و از کد زیر استفاده کنید.

کد لرزش ادیت تکست:

Dim shake As Animation
shake.InitializeTranslate("", -1dip, 0, 1dip, 0)
shake.RepeatCount = 5
shake.RepeatMode = shake.REPEAT_REVERSE
shake.Duration = 50

shake.Start(EditText1) 'نام ویو