cerrar ventana al transcurrir cierto tiempo - VB-MUNDO

manolito · #1 (**permalink**) 22-10-2004, 12:39:58

Mu wenas a tod@s.
Primeramente decir que este es el mejor foro de visual que he visto hasta el momento
Mi problema es el siguiente.
Quiero hacer un programa para que los trabajadores fichen cada dia, el problema principal es que necesito que cuando un usuario pase la tarjeta por el receptor, se muestre su nombre y apellidos y esas cositas. Todo esto es mu facil. Lo unico es que no se como hacer que pasados 5 segundos el sistema pase a esperar a otro usuario con todos los datos de cada textbox borrados. Vamos que yo paso la tarjeta, me dice "buenos dias Manolito" y despues de 5 segundos se borre todo y espere a que le pase otra tarjeta magnetica.
Esto se puede hacer??
Muchas gracias de antemano

J.M.Movilla · #2 (**permalink**) 22-10-2004, 13:01:01

Pues te preparas una subrutina para inicializar todas las cajas, y que sitúe el foco en el lector de tarjetas.

Al decir "inicializar" supongo que entiendas que sería algo así como:

For n = 0 to NúmeroDeCajas -1
Text1(n).Text = ""
Next

Y luego pondrías el SetFocus en la caja de entrada del lector:

CajaEntradaLector.SetFocus

Y todo eso lo pones en una subrutina privada, que ejecutarás inmediatamente después de cada lectura, en cuanto grabes los datos recibidos.

dagoba77 · #3 (**permalink**) 22-10-2004, 18:05:03

Hola

tambien podrias poner un timer con el inetvalo deseado en propiedades y que limpie cada caja de texto

Código:

Dim f As Form
Dim T As Control
For Each T In Screen.ActiveForm.Controls
If TypeOf T Is TextBox Then
T.Text = ""
End If
Next[quote]

con etse codigo y listo lo pones en un modulo y te sirve para todos tus formularios

Suerte
[/quote]