Visual Basic - temporizador...

Life is soft - evento anual de software empresarial
 
Vista:

temporizador...

Publicado por API (4 intervenciones) el 18/09/2002 19:08:21
Gracias por atender esta nota alguien sabe como se puede establecer un Timer con apis, ya que el control del tiempo lo tengo que llevar a cabo en un modulo, y sin utilizar form, y de esa manera no puedo insertar el control Timer, y queria saber como se podría realizar por Codigo...

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

RE:temporizador...

Publicado por bla (230 intervenciones) el 19/09/2002 00:01:59
Tres formas:
1. Créalo en un formulario, si no quieres que se vea sólo tienes que iniciarlo con "load NombreForm" en lugar de "NombreForm.show"
2. la function API
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
te permite "hibernar" todo el proyecto durante los milisegundos que desees.
3. Diseñar un timer por apis:
Declare Function SetTimer Lib "user32" _
(ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long

Declare Function KillTimer Lib "user32" _
(ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long

Dim mlngTimerID As Long

Sub TimerProc(ByVal hwnd As Long, _
ByVal uMsg As Long, _
ByVal idEvent As Long, _
ByVal dwTime As Long)
Dim llng As Long

llng = KillTimer(0, idEvent)
MsgBox "TimerProc disparado" _
& vbCrLf & "hwnd: " & hwnd _
& vbCrLf & "uMsg: " & uMsg _
& vbCrLf & "idEvent: " & idEvent _
& vbCrLf & "dwTime: " & dwTime
End Sub
Sub main()
'* Creamos el timer, se disparará cada dos segundos
mlngTimerID = SetTimer(0, 0, 2000, AddressOf TimerProc)
...RESTO DE CODIGO...
End Sub
Ojo: sin no pones más código el programa terminará antes de que hayan pasado los 2 segundos y no ocurrirá nada.
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