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.

Option Explicit
Dim KeyPressed As Boolean
 
Private Sub Form_Load()
   KeyPressed = False
End Sub
 
Private Sub SomeControl_SomeEvent()
  Do Until KeyPressed = True
    ...
    DoEvents
  Loop
End Sub
 
Private Sub Form_KeyDown(....)
  KeyPressed = True
End Sub