Visual Basic - Existe una funcion de Wait? (Delay)

Life is soft - evento anual de software empresarial
 
Vista:

Existe una funcion de Wait? (Delay)

Publicado por DuCKeR (13 intervenciones) el 04/12/2001 16:06:36
Hola, queria saber si en VB existia una funcion como Wait ó Delay, que espera cierto tiempo a que se ejecute la siguiente accion

Es que tengo un Label que quiero que este "permanentemente" cambiando, que primero muestre una A luego una B, luego A, luego B, A, B, A, B, pero que se detenga 1 segundo en cada cambio

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Timer o Delay?

Publicado por VBPing (20 intervenciones) el 04/12/2001 19:03:22
Es facil si queres podes hacer un timer que cumpla la funcion.
Sino hay una forma de hacerlo te podes fijar en el formulario splasho en el mismo hecho en el Proyecto MDI cuando inicias el asistente al principio de todo.
Si de todas maneras no lo encontras, escribi a mi direccion de mail que te lo mando, lo que oasa es que en este momento no me lo acuerdo pero lo tengo anotado.
Saludos.
Contame depues como te fue.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Existe una funcion de Wait? (Delay)

Publicado por Athlon (76 intervenciones) el 04/12/2001 21:52:49
En un proyecto nuevo, agrega un label, y un timer, copia y pega este codigo, éste hace lo que necesitas:

Dim contando As Integer

Private Sub Form_Load()
Timer1.Interval = 1000 '1 segundo
Label1.Caption = "A" 'El estado inicial sera la A
Call Timer1_Timer 'Llamo al timer
End Sub

Private Sub Timer1_Timer()
contando = contando + 1 'Incremento el contador en 1
If contando = 2 Then 'Si paso 1 seg. osea el 1 inicial mas 1 de espera
Label1.Caption = "B" 'Cambia el label
ElseIf contando = 4 Then 'Si pasan otros 2 seg, en el que iva y el de esp.
Label1.Caption = "A" 'Vuelve a cambiar el timer
contando = 0 'Reseteo el contador para asegurar la siguiente "B"
End If

Espero te sirva, otra manera es gastar tiempo con bucle pero no es muy preciso.

Saludos

Mx.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar