B4X:
Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode=KeyCodes.KEYCODE_BACK Then
#If B4A
Dim MC As MenuClose
MC.Initialize(Colors.ARGB(200,150,150,150),Colors.Blue)
#End If
'???????? '<===Add BaNanoCSSUtils 's Code as belows in this line
Return True
End If
Return False
' Return B4XPages.Delegate.Activity_KeyPress(KeyCode)
End Sub
B4X:
'BaNanoCSSUtils Example
Private Sub btnSetWidthAnimated_Click (e As BANanoEvent)
SHIonBaseElement1.SetWidthAnimated(2000, "300px")
End Sub
Private Sub btnSetHeightAnimated_Click (e As BANanoEvent)
SHIonBaseElement1.SetHeightAnimated(2000, "100px")
End Sub