Через промежуток...

[Aleksei]

Всё уже испробовал, никак не получается!
Подскажите, как сделать что бы какая то операция выполнялась через определённый промежуток временни (одна и та же).
Другими словами, как сделать этакую паузу....????

[goro]

Поставь это действие в таймер, а промежуток таймера поставь на тот который тебе нужен.

[Aleksei]

Я видел где то исходник...(он прописовался в модуль).
Он и выполнял эту задачу.
Вот я и спрашиваю

[Sebas]

ну можно програмно создать таймер или через Sleep

[Amed]

'Объясняю на пальцах:
'Всё верно, есть 2 способа:

'1) Через элемент Timer:

'Параметр "интервал" таймера равен периоду срабатывания вашего действия в миллисекундах...
Public Sub Timer1_Timer()
'Ваше действие...
End Sub

'2) Через функцию sleep:

'Сначала объявляем её:
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

'И используем в цикле:

Private Exit As Boolean 'Проверка на зацикливание
Public Sub Form_Load()
ExecPeriod
End Sub

Public Sub Form_Terminate()
Exit=True
End Sub

Public Sub ExecPeriod
Do While Exit = False
'<ВАШИ ДЕЙСТВИЯ>
sleep 200 'после каждого действия 200 миллисекунд отдыха функции...
Loop
End Sub

[Yurich]

Зачем использовать компонент 'Timer'? Есть более простое решение:

Public Running As Boolean ' Прога работает?

Private Sub Form_Activate() ' или Load
Dim MyTimer As Single ' Переменная, определяющая
' длительность задержки

MyTimer=Timer

While Running = True ' Пока прога работает
DoEvents 'Будем жалостливы к системе
If Timer - MyTimer > 1 Then
' 1 - интервал, по моему
' в секундах (можно и меньше)
' ----------------------------------------------------------------
' Здесь делаем требуемую
' процедуру

MyTimer = Timer ' Сбрасываем свой таймер
End If
Wend
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Running = False ' Выход
End Sub