аналоги delay или pause в VB

18.10.2007, 08:16. **Показов** 2259. **Ответов** 7

Студворк — интернет-сервис помощи студентам

ктонить 3нает , есть ли на ВБ аналоги delay или pause - нужно бновление свойства нек. объектов через некоторое время...

@al2001 · 18.10.2007, 10:00

Можешь использовать фунцию API
Sleep(время)

Или строй цикл

tim=Timer
While Timer-tim<интервал
doevents
wend

или что-то наподобие этого

@sharig · 18.10.2007, 10:35

или - http://sharig.webzone.ru/category/programs/prog16_pause.htm

18.10.2007, 14:31

2 sharig - что-то твой линк у меня не загрузился

18.10.2007, 14:33

я иногда использую :

Private Declare Sub Sleep Lib 'Kernel32' (ByVal N As Long)

Public Sub Delay(N As Long, Optional bUseEvents As Boolean)
If (bUseEvents) Then DoEvents
Call Sleep(N)
If (bUseEvents) Then DoEvents
End Sub

18.10.2007, 16:30

Сорри - загрузилась ссылка - канал не пахал

21.10.2007, 07:24

Private Declare Sub Sleep Lib 'Kernel32' (ByVal N As Long)

а в 4ем измеряется параметр N для sleep (секунды/миллисекунды)?

21.10.2007, 11:29

N =1 => 1 миллисекунда (1E-3 сек)

Новые блоги и статьи Все статьи Все блоги /
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .

casper

	аналоги delay или pause в VB 18.10.2007, 08:16. Показов 2259. Ответов 7 Метки нет (Все метки) ктонить 3нает , есть ли на ВБ аналоги delay или pause - нужно бновление свойства нек. объектов через некоторое время...

@al2001 0 / 0 / 0 Регистрация: 30.08.2007 Сообщений: 32
	18.10.2007, 10:00
	Можешь использовать фунцию API Sleep(время) Или строй цикл tim=Timer While Timer-tim<интервал doevents wend или что-то наподобие этого 0

@sharig 2 / 2 / 1 Регистрация: 30.07.2007 Сообщений: 206
	18.10.2007, 10:35
	или - http://sharig.webzone.ru/category/programs/prog16_pause.htm 0

Ghost
	18.10.2007, 14:31
	2 sharig - что-то твой линк у меня не загрузился

Ghost
	18.10.2007, 14:33
	я иногда использую : Private Declare Sub Sleep Lib 'Kernel32' (ByVal N As Long) Public Sub Delay(N As Long, Optional bUseEvents As Boolean) If (bUseEvents) Then DoEvents Call Sleep(N) If (bUseEvents) Then DoEvents End Sub

Ghost
	18.10.2007, 16:30
	Сорри - загрузилась ссылка - канал не пахал

casper
	21.10.2007, 07:24
	Private Declare Sub Sleep Lib 'Kernel32' (ByVal N As Long) а в 4ем измеряется параметр N для sleep (секунды/миллисекунды)?

Ghost
	21.10.2007, 11:29
	N =1 => 1 миллисекунда (1E-3 сек)