Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private EditText1 As EditText
Dim sf As StringFunctions
End Sub
Public Sub Initialize
sf.Initialize
End Sub
Private Sub EditText1_FocusChanged (HasFocus As Boolean)
If HasFocus = False Then
If sf.Val(EditText1.Text) = 0 Then
xui.MsgboxAsync("Zero is not allowed!", "Error")
Return
End If
End If
End Sub