Команда: Жать событие?

[Adolf]

В общем у меня существует следующая проблема:
При активации события (нажатием кнопки), у меня происходит действие, затем мне нужно сделать так что бы произошло второе действие, но только через определенное время, как это сделать.

Активация
Действие 1
Ждать (допустим 10 секунд) (?)
Действие 2

[Amed]

Оцени функцию Sleep

Код: Выделить всё

'This project needs a button
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Me.Caption = "Your system will sleep 5 sec."
    'Sleep for 5000 milliseconds
    Sleep 5000
    Me.Caption = ""
End Sub
Private Sub Form_Load()
    Me.Caption = ""
    Command1.Caption = "Sleep ..."
End Sub

[Александр80]

Активация
Действие 1
Ждать (допустим 10 секунд) (?)
Действие 2

Что-то не доброе затеял...

[Ramzes]

Активация
Действие 1
Ждать (допустим 10 секунд) (?)
Действие 2

Что-то не доброе затеял...

С чего ты взял?

[Amed]

...и пошёл флуд...

{offtop}Привет, Sebas! {/offtop}

[Ramzes]

где тут флуд?

[off]
ну привет себас
[/off]

[Александр80]

Ramzes, мне так кажется...
Через десять секунд, можно запустить что-то не очень хорошее... Хотя конечно это можно сделать и по другому...

Amed, флуда тут нет

[Ramzes]

да но можно и что-то полезное

[off]
ну привет себас (еще раз)
[/off]

[Adolf]

Amed
Нет, Sleep он просто отключает действие программы, продолжать работать невозможно, мне нужно, что все работало и только произошла задержка определенного действия.

Например:

Private Sub cmd..._Click()

If lbl1.Caption = "..." Then
lbl2.Caption = "..."
Далее проходит 10 секунд <-Как описать данное действие.
lbl2.Caption = "..."
...

[Amed]

Тогда так:

Код: Выделить всё

Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

Private Sub cmd..._Click()
Dim Time1 As Long, Time2 As Long

If lbl1.Caption = "..." Then
lbl2.Caption = "..."

Time1 = GetTickCount
Time2 = Time1

Do While Time2 - Time1 < 10000
Time2 = GetTickCount
DoEvents
Loop

lbl2.Caption = "..."
...


[A.A.Z.]

Может,

Код: Выделить всё

Private Sub cmd..._Click()
Dim T!
If lbl1.Caption = "..." Then
lbl2.Caption = "..."
T = Timer
Do Until Timer - T >= 10000
Me.Caption = 10 - Int(Timer - T)
DoEvents
Loop
lbl2.Caption = "..."

Я малость не врубон, что нужно афтару, но если Sleep не подходит... Тогда, наверное, это... Или SleepEx?

[A.A.Z.]

Тьфу ты елки-палки!

[Adolf]

Все, желаемый результат получил, очень признателен за помощь.

[Zer]

А если в это время надо выполнять какие-то действия, а не просто ждать???

[Amed]

Просто добавить флаг ActionsDone As Boolean и ставить его в True по выполнении действий

Код: Выделить всё

Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

Private Sub cmd..._Click()
Dim Time1 As Long, Time2 As Long

If lbl1.Caption = "..." Then
lbl2.Caption = "..."

Time1 = GetTickCount
Time2 = Time1

Do While Time2 - Time1 < 10000
Time2 = GetTickCount
DoEvents
Loop

If ActionsDone Then
lbl2.Caption = "..."
...
End If


[Zer]

Не, я имею ввиду он будет крутится на:

Код: Выделить всё

Do While Time2 - Time1 < 10000
Time2 = GetTickCount
DoEvents
Loop


Ентого не надо... ...надо чтобы он оттуда(из подпрограммы) уходил, а потом, ерез некоторое время, активировалась другая подпрограмма...

[Adolf]

Zer
Используй код, который мне рекомендовал A.A.Z., я правда его немного изменил, как мне нужно.

[Adolf]

Еще вопрос:
Какой код нужно ввести, что если исполняется одно из всех данных условий, то действия сразу же прекращалось.

Просто конечный результат действия одно условия совпадает с начальным другого, в результате чего действее сразу перекидывается на следуующий цикл и так далее. Как это избежать?

[A.A.Z.]

Ну, можно так (хотя я опять не понял, что нужно афтару):

Код: Выделить всё

If <условие1> Or <условие2> Or ... Or <условиеN> Then Exit Sub

[Chuvack]

У меня возник вопрос. Как узнать сколько времени(в миллисекундах) продолжалось событие.

[Amed]

Код: Выделить всё

Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

Private Sub Form_Load()
Dim Time1 As Long, Time2 As Long

Time1 = GetTickCount
'... действия
'... действия
'... действия
Time2 = GetTickCount

MsgBox "Действия продолжались " & (Time2 - Time1) / 1000 & " с."
End Sub