Time and Loop Problem

[questionit]

How can i write a For Loop which will run until a user hits any key


Also , i want to do something like this :

Loop Until 'Anycondition'

Update time every second :
Now(Hour)
Now(Minute)
Now(Second)

Can anyone help

[Rabbit]

How can i write a For Loop which will run until a user hits any key


Also , i want to do something like this :

Loop Until 'Anycondition'

Update time every second :
Now(Hour)
Now(Minute)
Now(Second)

Can anyone help

You could try using DoEvents to throw control to the processor and process any keys using the KeyDown or KeyPress event.

As for the time there's a Timer event.

[questionit]

Rabbit

Can you give me any examples how to start?

Thanks

You could try using DoEvents to throw control to the processor and process any keys using the KeyDown or KeyPress event.

As for the time there's a Timer event.

[Rabbit]

Here's a quick and dirty example, untested.

[Code=vb]
Option Explicit
Dim KeyPressed As Boolean

Private Sub Form_Load()
KeyPressed = False
End Sub

Private Sub SomeControl_Som eEvent()
Do Until KeyPressed = True
...
DoEvents
Loop
End Sub

Private Sub Form_KeyDown(.. ..)
KeyPressed = True
End Sub
[/Code]