B4A ToggleButton. Botón con enclavamiento. Código.

- Presentación.

- El ToggleButton es un botón que cuando lo pulsamos, se pone en un estado y queda enclavado. Y cuando la volvemos a pulsar vuelve su a estado inicial.

____________________________
- Designer. Layout.

Creamos los controles

Insertamos mediante
Designer / Add View

Label1
ToggleButton1

Podemos cambiar la palabra del Text On y del Text Off del ToggleButton.

Guardamos el Designer:
File / Save : Layout

- Ahora vamos al código del programa, pero antes seguimos en el Designer y marcamos:

Tools / Generate members
ToggleButton ChekedChange(Cheked As Boolean)

Esto lo hacemos para que en el código aparezca:

Sub ToggleButton1_CheckedChange(Checked As Boolean)

End Sub

Que es donde pondremos el algoritmo del cálculo.
(En realidad podríamos poner las dos líneas anteriores escrita manualmente, sin tener que hacerlo mediante el Generate members)

____________________________
- Código (copia y pega).

Código del programa ToggleButton

'Activity module
Sub Process_Globals
' Juan Antonio Villalpando
' juana1991@yahoo.com 
End Sub

Sub Globals
Dim Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout") ' Cargamos el Designer
End Sub

Sub ToggleButton1_CheckedChange(Checked As Boolean)
If Checked = True Then
Label1.text="ENCENDIDO"
' Aquí se pone un código
Else 
Label1.text="APAGADO"
' Aquí se pone otro código
End If
End Sub

____________________________
- Comentarios.

El ToggleButton es un botón con enclavamiento. Cuando lo pulsamos queda enclavado aunque dejemos de pulsarlo.

Podemos poner un código cuando está pulsado y otro código cuando no lo está.

____________________________

- Cambio de color de fondo de un Toggle Button

Código del programa ToggleButton

'Activity module
Sub Process_Globals
' Juan Antonio Villalpando
' juana1991@yahoo.com 
End Sub

Sub Globals
Dim ToggleButton1 As ToggleButton
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout") ' Cargamos el Designer

    Dim color1, color2 As ColorDrawable
    color1.Initialize(Colors.RGB(255,0,0), 6dip)
    color2.Initialize(Colors.RGB(0,255,0), 6dip)

    Dim colores As StateListDrawable
    colores.Initialize

    Dim estado(2) As Int
    estado(0) = colores.state_unchecked
    estado(1) = -colores.state_checked
    colores.AddState2(estado, color1)

    Dim estado(1) As Int
    estado(0) = colores.state_checked
    colores.AddState2(estado, color2)
    ToggleButton1.Background = colores
End Sub

________________________________