Italian B4A - Chiusura Programma e ToolBar

Sagenut said:

Oppure puoi intercettare il Touch su un Panel.
Con l'evento Action_down fai partire un timer da 1 secondo che incrementa di 1 una variabile. Se la variabile arriva a 5 sono passati i 5 secondi.
Con l'evento Action_up disabiliti il timer e rimetti la variabile a 0 per bloccare il conteggio se uno ci ripensa e toglie il dito prima di essere arrivato a 5 secondi.
Magari non è un metodo molto pulito però si avvicina di più a quello che vuoi.

Click to expand...

Sagenut said:

Per avere l'app a Full Screen senza altre alternative devi guardare questo:
Kiosk Mode
Controlla bene che non ci sia una versione più aggiornata del metodo descritto.
Attenzione che devi davvero prevedere un pulsante o altro per chiudere l'app altrimenti penso che l'unica soluzione sia il riavvio del telefono.

Click to expand...

Sub Activity_Create(FirstTime As Boolean)
    Activity_WindowFocusChanged(True)
    Dim lv As LayoutValues = GetRealSize
    Dim jo As JavaObject = Activity
    jo.RunMethod("setBottom", Array(lv.Height))
    jo.RunMethod("setRight", Array(lv.Width))
    Activity.Height = lv.Height
    Activity.Width = lv.Width
    
    
    Activity.LoadLayout("1")
End Sub


Sub GetRealSize As LayoutValues
    Dim lv As LayoutValues
    Dim p As Phone
    If p.SdkVersion >= 17 Then
        Dim ctxt As JavaObject
        ctxt.InitializeContext
        Dim display As JavaObject = ctxt.RunMethodJO("getSystemService", Array("window")).RunMethod("getDefaultDisplay", Null)
        Dim point As JavaObject
        point.InitializeNewInstance("android.graphics.Point", Null)
        display.RunMethod("getRealSize", Array(point))
        lv.Width = point.GetField("x")
        lv.Height = point.GetField("y")
    Else
        lv.Width = 100%x
        lv.Height = 100%y
    End If
    lv.Scale = 100dip / 100
    Return lv
End Sub