Конференция VBStreets

**iolaus** » 17.09.2004 (Пт) 17:38

народ а вот на basic под дос была команда wait которая позволяла запаузить выполнение программы на некоторое врнемя... а на висуале есть что-то подобное???

**Scuder** » 17.09.2004 (Пт) 17:41

Реально "паузит":

Код: Выделить всё: Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Чтобы при этом события работали, то через Timer.

**alibek** » 17.09.2004 (Пт) 17:53

Или через SleepEx.

**tyomitch** » 17.09.2004 (Пт) 17:53

Вместо таймера я для задержек использую

Код: Выделить всё: Dim Start As Double: Start = Timer While Timer - Start > XXX: DoEvents: Wend

Я не утверждаю что это лучше, просто к этому способу я привык ещё во времена QBasic-а.

**GSerg** » 17.09.2004 (Пт) 17:58

Отвыкай. На винде это реально худший способ сделать паузу

**iolaus** » 17.09.2004 (Пт) 18:20

через апи вроде лучше!!! спасибо!!!

**alibek** » 17.09.2004 (Пт) 18:47

tyomitch, ага, мне еще ASD это высказал. Я вначале обиделся малость, а потом подумал, и понял что он прав.

**tyomitch** » 17.09.2004 (Пт) 19:26

alibek писал(а):tyomitch, ага, мне еще ASD это высказал. Я вначале обиделся малость, а потом подумал, и понял что он прав.

Что - это?

**GSerg** » 17.09.2004 (Пт) 22:02

Видать то, что это реально худший способ

**tyomitch** » 17.09.2004 (Пт) 22:23

GSerg, ты чего, я ещё в сто раз хуже могу придумать, только волю дай :-)

Например:

Код: Выделить всё: Timer1.Interval = XXX: Timer1.Enabled = True While Timer1.Enabled: DoEvents: Wend Private Sub Timer1_Timer Timer1.Enabled = False End Sub

**GSerg** » 17.09.2004 (Пт) 23:24

Даже не старайся

RayShade в этом смысле не переплюнуть

Видел бы ты, как он порой копирует лист excel... ммм... конфетка

**ASD** » 19.09.2004 (Вс) 16:28

Хм, я такое предлогал...
Ну может...
Реально юзаю или sleep (если по полной морозить) или MsgWaitForMultipleObjects
Хотя моменты бывают разные..

**Ruslan Demidow** » 19.09.2004 (Вс) 16:56

Почитал ваши рассуждения и не понял: так какой же наилучший способ заморозить программу? :roll:

**tyomitch** » 19.09.2004 (Вс) 17:13

Заморозить - Sleep, чтобы реагировала - развесить таймеры.

**Ruslan Demidow** » 19.09.2004 (Вс) 17:21

tyomitch писал(а):Заморозить - Sleep, чтобы реагировала - развесить таймеры.

Т.е. как ты написал?
Программа ничего не делает, но на изменение размеров и т.п. реагирует. Так?

**tyomitch** » 19.09.2004 (Вс) 17:33

Нет, как я написал - делать не надо :-)

Надо заэнейблить таймер, а то, что делается после паузы - делать в его событии Timer, а не в основной процедуре. Это имхо самый правильный способ.

**Ruslan Demidow** » 19.09.2004 (Вс) 19:50

tyomitch писал(а):Нет, как я написал - делать не надо
Надо заэнейблить таймер, а то, что делается после паузы - делать в его событии Timer, а не в основной процедуре. Это имхо самый правильный способ.

Ясно, спасибо.

Конференция VBStreets

WAIT

WAIT

Кто сейчас на конференции