رفتن به مطلب

حرکت افقی متن های طولانی در لیبل


Mr.Kafiri

ارسال های توصیه شده

تو این آموزش قصد داریم نحوه حرکت افقی متن های طولانی لیبل در b4a همراه با انیمیشن را آموزش دهیم
اگه ساده تر بگیم اینکار چیزی شبیه به زیرنویس هستش که در تلویزیون می بینید!!!

برای اینکار ابتدا کتابخونه JavaObject را تیک بزنید و ساب زیر را به پروژه اضافه کنید

Sub MarqueeTextView(Label As Label)
  Label.SingleLine = True
  Label.Ellipsize = "MARQUEE"
  Sleep(10)
  Dim jo As JavaObject = Label
  jo.RunMethod("setSelected", Array(True))
End Sub

برای استفاده از این ساب کافیه لیبل مورد نظر را به آن ارجاع دهید

MarqueeTextView(Label1)

با اجرای این ساب و ارتفاع لیبل مورد نظر به آن، متن آن به صورت زیرنویس شروع به حرکت می کند و بعد از اتمام متن از اول شروع می شود
امیدوارم این آموزش به کارتون بیاد

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...