Como puedo hacer un retardo en VB 6.0

[ing_sistemas]

hola en c++ existe el delay para detener un quantun de tiempo un procedimiento y quisiera saber como puedo hacer eso en VB gracias

[jorevale]

Si pones a buscar la palabra Timer en el foro de visual basic, te saldrán un montón de post que te pueden explicar esa duda.

Salu2

[[EX3]]

La funcion Delay() de C++ seria utilizando la funcion Sleep() del API de Window:

Código:

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Salu2...

[black_devil]

hola, como dice jorevale debes usar el objeto timer en VB, en el cuadro de herramientas aparece como un icono de reloj, bueno para hacer un delay o retardo de tiempo, en un proyecto VB debes tener 2 form, 1 Label1 y 1 Timer (para el primer form) aca va el código, la idea es que el Form1 tenga un delay de x segundos antes de mostrar el form2...

Private Sub Form_Load()
lbltime.Visible = False 'el label los dejas invisible
lbltime.Caption = "3" '<----- ahi le colocas el tiempo que quieras para el delay
tmrtiempo.Interval = "1000" '<--- el intervalo de tiempo, 1000 equivale a
'un segundo ...
End Sub


Private Sub tmrtiempo_Timer() '<---- nombre del timer que le dí
lbltime.Caption = Val(lbltime.Caption) - 1
If lbltime.Caption = 0 Then
Form2.Show '<---- Llamada al form2
Unload Me
End If
End Sub

Saludos!!

[Damntry]

Usar un timer es matar una mosca a cañonazos... bueno quiza no cañonazos pero si un martillo, la solucion de [EX3] es mucho ma eficaz

[black_devil]

Iniciado por Damntry

Usar un timer es matar una mosca a cañonazos... bueno quiza no cañonazos pero si un martillo, la solucion de [EX3] es mucho ma eficaz

que quieres decir con eso?

[UserCod]

Saludos

Del 2006 al 2010 (y finalizando ya) es un trecho de tiempo muy largo, pero debo anexar el escrito puesto que sin importar el tiempo, queda archivado a futuras busquedas, casualmente lo de EX3 me sirvio y era lo que estaba buscando para dar un leve retraso entre varios Insert Into por codigo a una tabla y la recogida de los datos de estos de CrystalRepor antes de caer al codigo que lo carga.

Para el amigo black_devil

black_devil, el Timer no sirve para el caso puesto que posiblemente el caso de ing_sistemas como mi caso, debia ser un retardo sin ejecutar nada dentro de este. No se puede colocar un Timer sin nada dentro de este y llamarlo puesto que al no tener nada en ninguno de sus eventos, VB no lo toma en cuenta por mas que se desee llamarlo.

Es un caso donde no se desea ejecutar nada en ese intervalo de tiempo del Timer, sino que solo y simplemente exista un "retardo de tiempo muerto" antes de luego pasar a la siguiente linea de codigo donde comience algun determinado proceso.

Eso es lo que quizo decir Damntry.
Dejo el comentario para completar el fin del post con la pregunta de black_devil dejada al aire por unos cuantos anios ya contestada. La solucion de EX3 es elegantemente corta y directa, una sola linea de codigo sin recurrir a ningun objeto, un colocar donde se necesite el Sleep(1000) o el tiempo requerido y listo, simple.

Saludos

[pkj]

Para gustos los colores.

Yo por ejemplo soy reacio a usar cualquier elemento externo si puedo evitarlo.
Ya sea un objeto que haya que cargar en componentes, ya sea un comando externo, como sería una llamada a API, cualquier cosa que use dlls que puedan no existir en el pc de destino, si puedo evitarla la evito.

Además las pruebas que he hecho con la función Sleep nunca me han resultado como esperaba, de modo que tengo mis propios "Sleeps" para usar cuando los necesito:

Para esperar segundos...

Código vb:

Sub Espera(ByVal Segundos As Long)
  Dim Hora As Double
  On Local Error Resume Next
  Hora = Timer
  Do Until Timer >= Hora + Segundos
    DoEvents
  Loop
End Sub
 

'------------------------------------
y para esperar milisegundos...

Código vb:

Sub EsperaMiliseg(ByVal Tiempo As Double)
  Dim HoraActual As Double
  On Local Error Resume Next
  HoraActual = Timer
  Do Until Timer >= HoraActual + (Tiempo / 1000)
    DoEvents
  Loop
End Sub
 

Y dependiendo del propósito, puedo usar un timer si lo veo conveniente y crear otro tipo de sleep.

Compañeros... la imaginación es nuestro límite.

Saludos.

[Predaaator]

Iniciado por pkj

Para gustos los colores.

Yo por ejemplo soy reacio a usar cualquier elemento externo si puedo evitarlo.
Ya sea un objeto que haya que cargar en componentes, ya sea un comando externo, como sería una llamada a API, cualquier cosa que use dlls que puedan no existir en el pc de destino, si puedo evitarla la evito.

Además las pruebas que he hecho con la función Sleep nunca me han resultado como esperaba, de modo que tengo mis propios "Sleeps" para usar cuando los necesito:

Para esperar segundos...

Código vb:

Sub Espera(ByVal Segundos As Long)
  Dim Hora As Double
  On Local Error Resume Next
  Hora = Timer
  Do Until Timer >= Hora + Segundos
    DoEvents
  Loop
End Sub
 

'------------------------------------
y para esperar milisegundos...

Código vb:

Sub EsperaMiliseg(ByVal Tiempo As Double)
  Dim HoraActual As Double
  On Local Error Resume Next
  HoraActual = Timer
  Do Until Timer >= HoraActual + (Tiempo / 1000)
    DoEvents
  Loop
End Sub
 

Y dependiendo del propósito, puedo usar un timer si lo veo conveniente y crear otro tipo de sleep.

Compañeros... la imaginación es nuestro límite.

Saludos.

Muchas gracias por esa respuesta, era exactamente lo que buscaba :D