VBasicFacil

Principal - Enlaces - Codigo - Controles - API

Función Sleep

Declaración

Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Plataformas

Descripción

Detiene la ejecución de un programa por un tiempo determinado. Es mas apropiado que usar un bucle que no haga nada, para dejar pasar un tiempo.

Parámetros

dwMilliseconds tiempo en milisegundos que se interrumpirá la ejecución del programa. Puede usarse INFINITE para detener el programa indefinidamente.

Valor devuelto

La función no devuelve ningún valor.

Ejemplo

Vamos a hacer parpadear la barra de título diez veces con una frecuencia de 4 parpadeos por segundo

Formulario (Contiene dos CommandButton)

Option Explicit


Private Sub Command1_Click()
    Intermitente
End Sub


Private Sub Command2_Click()
    Unload Me
End Sub

Modulo 

Option Explicit


Declare Function GetActiveWindow _
		Lib "user32.dll" () As Long
Declare Function FlashWindow Lib "user32.dll" _
       (ByVal hwnd As Long, _
        ByVal bInvert As Long) As Long
Declare Sub Sleep Lib "kernel32.dll" _
       (ByVal dwMilliseconds As Long)

Public Sub Intermitente()
    Dim X As Integer
    Dim hactive As Long ' manejador de la ventana activa
    Dim retval As Long  ' valor de retorno

    hactive = GetActiveWindow()  ' Obtenemos el manejador de la ventana activa
    For X = 1 To 10
        ' Diez parpadeos del título
        retval = FlashWindow(hactive, 1): Sleep 250
        retval = FlashWindow(hactive, 1): Sleep 250
        retval = FlashWindow(hactive, 0)
    Next
End Sub
Descargar Codigo : GetActiveWindow.zip

 

VB.NET

Clase

System.Threading.Thread.Sleep

Aplicaciones:

Ver también:

Categoría: Varios

Ultima actualización : 29 de noviembre de 2003
Copyright © 2003 Silared, s.l.
correo-e : vbasicfacil@silared.com
Site : www.vbasicfacil.com