Sección de códigos , trucos y ejemplos para visual basic

308 - Ejemplo de Timer en vba de Word

Ejemplo que usa el método OnTime del objeto Application para ejecutar una trea cada cierto intervalo de tiempo, como un Timer

El método OnTime de vba tiene los siguientes parámetros:

Application.OnTime (When, Name, Tolerancia )

El párametro When indica a que hora específica se debe ejecutar el procedimiento indicado en el parámetro Name

El parámetro Name es el nombre del procedimiento a ejecutar cuando se cumapla la hora indicada

Lo siguiente, ejecuta cada 10 segundos el procedimento HacerBackup. Dentro del procedimento HacerBackup, se usa el método SaveAs para guardar una copia del documento actual en el directorio c: con el nopmbre Backup.doc

Agregar

un módulo de código.
En el documento añadir un CommandButton

Código en el módulo bas

Sub Timer() ' Ejecuta el procedimento HacerBackup cada 10 segundos Application.OnTime When:=Now + TimeValue("00:00:10"), Name:="Hacer_Backup" End Sub Sub Hacer_Backup() ' hace una copia del documento en c:\ Application.ActiveDocument.SaveAs FileName:="c:\backup.doc", FileFormat:=wdFormatDocument _ , LockComments:=False, Password:="", AddToRecentFiles:=True, _ WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False Call Timer End Sub

Código en el evento clic del CommandButton

' Ejecuta el procedimiento Timer _ para realizar la copia del documento cada 10 seg Call Timer

Nota: si se desea detener el timer iniciado, ejecutar el método OnTime , y especificar en el último parámetro que es de tipo opcional, el valor >> schedule:=False

Por ejemplo crear una sub llamada DetenerTimer, y ejecutar :

Application.OnTime When:=Now + TimeValue("00:00:10"), Name:="Hacer_Backup", schedule:=False

Recursos vb 6.0 - Enlaces relacionados

Recursos vb.net - Enlaces relacionados

StopWatch

Buscar en Recursos vb