با سلام و سپاس خدمت کاربران عزیز وب سایت یاهو ۹۸ YAHOO
دادن حالت انیمیشنی Shake به ویو در بیسیک
✨ نکات مهم:
• کد آماده و تستشده (1 قطعهکد)
• کپی و استفاده مستقیم در پروژه B4A
🚀 نحوه استفاده:
کد زیر را کپی کنید و در Sub یا ماژول مناسب پروژه خود قرار دهید؛ کتابخانههای اعلامشده را تیک بزنید.
⏱ نکته: بهخاطر محدودیت امنیتی سرور، خط Sleep داخل کادر کد بهصورت کامنت آمده؛ کد کامل و دستنخورده در فایل ضمیمه code.zip همین محصول است.
| دستهبندی | تکه کدها |
| تاریخ انتشار | ۲۷ شهریور ۱۴۰۵ - ۰۱:۲۲ |
| تعداد بازدید | ۲ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال میشود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- تکهکد آماده B4A
- کاملاً رایگان
- کد تستشده با توضیح فارسی
- فایل کد کامل (zip) ضمیمه شده
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
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 در فایل ضمیمه code.zip است (محدودیت امنیتی سرور)؛ هنگام استفاده آن را از فایل برگردانید
Next
View.SetLayoutAnimated(Duration/5, Left, View.Top, View.Width, View.Height)
End Sub