با سلام و سپاس خدمت کاربران عزیز سایت یاهو ۹۸ YAHOO
امروز با قطعه کدی کاربردی دیگر در خدمتتون هستیم امیدوارم مطلب فوق مورد قبول شما قرار گیرد .
✨ نکات مهم:
• کد آماده و تستشده (1 قطعهکد)
• کار با کتابخانههای: JavaObject
• کپی و استفاده مستقیم در پروژه B4A
📚 کتابخانههای مورد نیاز:
JavaObject
(از مسیر Libraries در محیط B4A تیک بزنید.)
🚀 نحوه استفاده:
کد زیر را کپی کنید و در Sub یا ماژول مناسب پروژه خود قرار دهید؛ کتابخانههای اعلامشده را تیک بزنید.
| دستهبندی | تکه کدها |
| تاریخ انتشار | ۲۷ شهریور ۱۴۰۵ - ۰۰:۳۰ |
| تعداد بازدید | ۳ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال میشود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- تکهکد آماده B4A
- کاملاً رایگان
- کد تستشده با توضیح فارسی
- کتابخانه: JavaObject
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Sub SetStatusBarColor(clr As Int)
Dim p As T8Phone
If p.SdkVersion >= 21 Then
Dim jo As JavaObject
jo.InitializeContext
Dim window As JavaObject = jo.RunMethodJO("getWindow", Null)
window.RunMethod("addFlags", Array (0x80000000))
window.RunMethod("clearFlags", Array (0x04000000))
window.RunMethod("setStatusBarColor", Array(clr))
End If
End Sub