جلوگیری از خاموش شدن صفحه نمایش – b4a

جلوگیری از خاموش شدن صفحه نمایش

برای این کار کتابخانه ی phone را که به طور پیش فرض در برنامه ی b4a موجود هست رو تیک بزنید.

بعدش باید متغیری از نوع PhoneWakeState تعریف کنیم.

Sub Globals
dim wake as phonewakeState
End Sub

و بعد مانند زیر عمل می کنیم.

Sub Activity_Create(FirstTime As Boolean)

phone1.KeepAlive(True)   'از اين دستور براي ممانعت ازخاموش شدن استفاده کنيد

phone1.ReleaseKeepAlive  'از اين دستور براي غير فعال کردن دستور بالايي استفاده کنيد يعني صفحه بعد از مدّتي خاموش ميشه

End Sub

شما می توانید دستورات بالا را در هرجایی که خواستید به کار ببرید و الزاماً نباید در Activity_creat آن هارا به کار ببرید.مثلاً می توانید کاری کنید که هنگام فشرده شدن یک دکمه صفحه روشن باقی بماند.

امیدوارم مفید بوده باشه.موفّق باشید