[Eğitim] B4A ile Uygulama Tasarlama (Giriş Ekranı)

Sub Activity_Create(FirstTime As Boolean)
   
    Activity.LoadLayout("GirisYap_Formu")

    SetStatusBarColor(Colors.RGB(236,176,0))
   
End Sub

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