تغییر رنگ استاتوس بار حین اجرای برنامه (Run Time)

تغییر رنگ استاتوس بار حین اجرای برنامه (Run Time)

تابع :

 

Sub SetStatusBarColor(clr As Int)
Dim p As Phone
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

 

استفاده :

 

SetStatusBarColor(Colors.Blue)

 

موفق باشید.