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

[Mr.Kafiri 221]

تو این آموزش قصد داریم نحوه حرکت افقی متن های طولانی لیبل در 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)

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