Sub Button2_Click
Dim email As String
id.InputType = id.INPUT_TYPE_TEXT
id.Input = ""
id.Hint = "[email protected]"
id.HintColor = Colors.ARGB( 196, 255, 140, 0 )
Dim sf As Object = id.ShowAsync( "Enter email address", "Test", "Yes", "Cancel", "No", Null, False )
Wait For( sf ) Dialog_Result( Result As Int )
If Result = DialogResponse.POSITIVE Then
' Check if value is empty
If id.Input = "" Then
ToastMessageShow( "No email, cancelled", True )
IME.HideKeyboard
Return
Else
email = id.Input
Log( email )
End If
Else
Log( Result )
IME.HideKeyboard
Return
End If
Log( "done" )
End Sub