|     Inicio    |   |         |  |   FOROS      |  |      |      
   Elastix - VoIP B4A (Basic4Android) App inventor 2 PHP - MySQL
  Estación meteorológica B4J (Basic4Java) ADB Shell - Android Arduino
   AutoIt (Programación) Visual Basic Script (VBS) FireBase (BD autoactualizable) NodeMCU como Arduino
  Teleco - Emisora de A.M. Visual Basic Cosas de Windows Webs interesantes
Translate:
Búsqueda en este sitio:


Nuevo concurso para España, Argentina, Brasil, Chile, Colombia, Ecuador, México, Perú y Portugal.

B4A en español - Juan Antonio Villalpando
(BASIC4Android)

-- Tutorial de B4A --

Volver al índice del tutorial

____________________________

41.- Focus.
- Tutoriales. Focus.

- 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






 


________________________________

- Mi correo:
juana1991@yahoo.com
- KIO4.COM - Política de cookies. Textos e imágenes propiedad del autor:
© Juan A. Villalpando
No se permite la copia de información ni imágenes.
Usamos cookies propias y de terceros que entre otras cosas recogen datos sobre sus hábitos de navegación y realizan análisis de uso de nuestro sitio.
Si continúa navegando consideramos que acepta su uso. Acepto    Más información