Sub Globals
Private EditText_pass As EditText
Private EditText_user As EditText
Dim lblSelected As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("login")
lblSelected.Initialize("lblSelected")
end sub
Sub Button_Click
Dim btnSender As Button
btnSender.Initialize("")
btnSender = Sender
Log(btnSender.Text)
Select btnSender.Tag
Case "CL"
Case "OK"
Case "NEXT"
Case "CLEAR"
Case "+"
Case "."
Case Else
lblSelected.Text = lblSelected.Text & btnSender.Text
End Select
End Sub