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

 

 

308 - Ejemplo de Timer en vba de Word

<Volver> - Anterior - Siguiente

 

 

 

---

 

 

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

• Tutorial del control timer de visual basic
• Crear un Timer con la Api de windows

Recursos vb.net - Enlaces relacionados

• StopWatch

 

Buscar en Recursos vb

---

Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2008 - www.recursosvisualbasic.com.ar