- Presentación.
Focus es el control que se encuentra preparado para recibir un evento por parte del usuario, hacer un click, escribir algo,...
Este ejemplo consta de un Layout llamado focoeditext, con dos Label y dos EditText (lb1, lb2, Alf_1 y Alf_2).
Los EditText tienen (otros View también lo tienen) un evento llamado FocusChanged, que detecta si ha cambiado el Foco.
La variable HasFocus indica si el foco ha cambiado o no, mediante True y False.
Alf_1.RequestFocus significa que requiere el Focus.
Este programa de ejemplo, obliga a que primero escribas el Nombre y después el Apellido.
Si te ubicas en el Apellido y no has puesto el Nombre, sale un Msgbox, solicitando que escribas el Nombre y
el Focus se pone en el casillero del Nombre.
Ejemplo de Focus.
|
'Activity module
Sub Process_Globals
' Juan Antonio Villalpando
' juana1991@yahoo.com
End Sub
Sub Globals
Dim lb1,lb2 As Label
Dim Alf_1, Alf_2 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("focoeditext")
Alf_1.RequestFocus
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Alf_1_FocusChanged (HasFocus As Boolean)
If HasFocus=False AND Alf_1.Text="" Then
Msgbox("Debe de rellenar el Nombre","Error")
End If
End Sub
Sub Alf_2_FocusChanged (HasFocus As Boolean)
If HasFocus=True AND Alf_1.Text="" Then Alf_1.RequestFocus
End Sub
|
|