'This event will be called once, before the page becomes visible.
Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private Button1 As B4XView
Private lblNumero1 As B4XView
Private txtNumero1 As B4XFloatTextField
Private txtNumero2 As B4XFloatTextField
Private lblNumero2 As B4XView
Private lblOperacion As B4XView
Private cboOperacion As B4XComboBox
Private lblResultado As B4XView
Private txtResultado As B4XFloatTextField
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
CodeLytMain.CreateCodeLytMain(txtNumero1, txtNumero2, cboOperacion, txtResultado)
txtNumero1.Text = 20
txtNumero2.Text = 15
Dim LstOperaciones As List = Array("SUMAR", "DIVIDIR", "MULTIPLICAR")
cboOperacion.SetItems(LstOperaciones)
End Sub
#Region EVENTOS
Private Sub cboOperacion_SelectedIndexChanged (Index As Int)
CodeLytMain.RealizarOperacion
End Sub
Private Sub txtNumero1_TextChanged (Old As String, New As String)
Sleep(50)
CodeLytMain.RealizarOperacion
End Sub
Private Sub txtNumero2_TextChanged (Old As String, New As String)
Sleep(50)
CodeLytMain.RealizarOperacion
End Sub
#End Region