درخواست کد انیمیشن لرزش

[vistamobile 1,700]

سلام. چجوری میشه به یک ویو یا شی حالت شوک یا لرزش داد؟ مثل همون حالت buzz خودمون تو مسنجرها. یعنی تو یک ثانیه چندین بار ویو بلرزه؟ اصلا همچین امکانی هست در بیسیک؟ 

[Elyas Erfani 3,582]

سلام

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

مثلا میخوایم یک EditText رو به لرزش در بیاریم

Sub Globals
   Private EditText1 As EditText
   Private shake As Animation
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("1") 
   shake.InitializeTranslate("", -10dip, 0, 10dip, 0)
   shake.RepeatCount = 5
   shake.RepeatMode = shake.REPEAT_REVERSE
   shake.Duration = 50
End Sub

Sub Activity_Click
   shake.Start(EditText1)
End Sub

[vistamobile 1,700]

داداش ممنون. لطف کردی.