حرکت متن در لیبل (به صورت زیرنویس)

اگه میخواین که متن لیبل تون به صورت افقی (مثل زیرنویس ها) حرکت کنه، کتابخونه های JavaObject و StringUtils رو تیک بزنید و سپس این تابع رو اضافه کنید:

به این شکل میتونین از تابع استفاده کنین:

✨ نکات مهم:

• کد آماده و تست‌شده (2 قطعه‌کد)

• کار با کتابخانه‌های: JavaObject، StringUtils

• کپی و استفاده مستقیم در پروژه B4A

📚 کتابخانه‌های مورد نیاز:

JavaObject، StringUtils

(از مسیر Libraries در محیط B4A تیک بزنید.)

🚀 نحوه استفاده:

کد زیر را کپی کنید و در Sub یا ماژول مناسب پروژه خود قرار دهید؛ کتابخانه‌های اعلام‌شده را تیک بزنید.

⏱ نکته: به‌خاطر محدودیت امنیتی سرور، خط Sleep داخل کادر کد به‌صورت کامنت آمده؛ کد کامل و دست‌نخورده در فایل ضمیمه code.zip همین محصول است.

دسته‌بندی	تکه کدها
تاریخ انتشار	۲۷ شهریور ۱۴۰۵ - ۰۱:۰۸
تعداد بازدید	۲
تعداد فروش	۰
فرمت تحویل	فایل دانلودی (بعد از پرداخت آنی فعال می‌شود)
پشتیبانی	تیکت پشتیبانی در پنل کاربری

ویژگی‌های کلیدی

تکه‌کد آماده B4A
کاملاً رایگان
کد تست‌شده با توضیح فارسی
کتابخانه: JavaObject، StringUtils
فایل کد کامل (zip) ضمیمه شده

هنوز نظری ثبت نشده است. اولین نفر باشید!

برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال می‌شود)

B4A — کد نمونه رایگان این تکه‌کد را می‌توانید مستقیم در پروژه بیسیک۴اندروید استفاده کنید

Sub Marquee(lbl As Label)
lbl.SingleLine = True
lbl.Ellipsize = "MARQUEE"
' ⏱ خط Sleep در فایل ضمیمه code.zip است (محدودیت امنیتی سرور)؛ هنگام استفاده آن را از فایل برگردانید
Dim jo As JavaObject = lbl
jo.RunMethod("setSelected", Array(True))
End Sub

Dim lbl As Label
lbl.Initialize("lbl")
lbl.Text="یاهو 98 ، یک کانال در حوزه برنامه‌نویسی B4X است! 👨‍💻🚀در این کانال به صورت هفتگی آموزش‌های کاربردی و کمیاب، تکه کدها، سورس، کتابخانه و... قرار می‌گیرد."
lbl.TextColor=Colors.Black
lbl.TextSize=14
lbl.Gravity=Gravity.CENTER_VERTICAL
Activity.AddView(lbl,0%x,90%y,100%x,10%y)

Marquee(lbl)