Sub Globals
Private pnlContenedor, pnlHijo As Panel
Private lblCiudad, lblApellidos, lblDomicilio, lblNombre As Label
Private panelactivo As Panel
Private EditText1 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
panelactivo.Initialize("")
Activity.LoadLayout("Principal")
For n = 0 To 3 'Carga 4 instancias de un mismo layout
pnlContenedor.LoadLayout ("panel_labels")
pnlHijo.SetLayout (10dip, 10 + n * 110dip, pnlHijo.Width, pnlHijo.Height)
Next
End Sub
Sub pnlHijo_Click
panelactivo.Color = Colors.ARGB(255,156,0,0)
panelactivo = Sender
panelactivo.Color = Colors.Green
End Sub
Sub boton_Click
If panelactivo.NumberOfViews = 0 Then
'Salta si no se ha seleccionado un Panel Activo
ToastMessageShow ("Seleccione un panel", False)
Return
End If
Dim boton As Button
boton.Initialize("")
boton = Sender
Dim etiqueta As Label
etiqueta.Initialize ("")
Select Case boton.Tag
Case "N"
etiqueta = panelactivo.GetView (0)
Case "A"
etiqueta = panelactivo.GetView (1)
Case "D"
etiqueta = panelactivo.GetView (2)
Case "C"
etiqueta = panelactivo.GetView (3)
End Select
etiqueta.Text = EditText1.Text
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub