Вопрос о Timer и СommonDialog & msgbox

@Alexey Spirin · Регистрация: 18.10.2007

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

Приветствую.
Проблема такая. В приложении необходимо, чтобы каждые 5 секунд срабатывало определенное действие по таймеру.
Но, если открыт CommonDialog или msg/inputbox таймерные события не выполняются.
Можно ли это как-то обойти по-человечески или делать свои контролы/формы, заменяющие данные элементы управления?

@maga2 · 06.12.2010, 17:31

Смотря какое действие Вы собираетесь производить.
В любом случае API Вам впомощь! Вот рабочий пример, который у меня
работает. Пробовал даже вызывать MsgBox из функции таймера при
наличии активного MsgBox, вызванного из основной программы.

код формы

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Private Const TIMER_ID As Long = 777' (идентификатор на Ваш вкус)
 
Private Declare Function SetTimer Lib 'user32' (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib 'user32' (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
 
Private Sub Form_Load()
    TimerID = SetTimer(0, TIMER_ID, 5000, AddressOf TimerProc)
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    If TimerID > 0 Then KillTimer 0, TimerID
End Sub

код в модуле

Visual Basic
1
2
3
4
5
6
Option Explicit
Public TimerID As Long
 
Public Sub TimerProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long)
'    MsgBox 'Все ОК!'' чтобы увидеть, что функция вызывается.
End Sub

По идее стандартный VB Timer тоже должен иметь схожую реализацию,
а почему не срабатывает с msg/inputbox не понятно.

06.12.2010, 19:24

http://www.relib.com/forums/topic.asp?id=819400

@Alexey Spirin · 06.12.2010, 20:06 **[ТС]**

Спасибо большое обоим.
А топик я тот помню, только вот найти его не смог перед тем как вопрос задать.

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748

	Вопрос о Timer и СommonDialog & msgbox 06.12.2010, 15:10. Показов 923. Ответов 3 Метки нет (Все метки) Приветствую. Проблема такая. В приложении необходимо, чтобы каждые 5 секунд срабатывало определенное действие по таймеру. Но, если открыт CommonDialog или msg/inputbox таймерные события не выполняются. Можно ли это как-то обойти по-человечески или делать свои контролы/формы, заменяющие данные элементы управления? 0

Comanche
	06.12.2010, 19:24
	http://www.relib.com/forums/topic.asp?id=819400

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	06.12.2010, 20:06 [ТС]
	Спасибо большое обоим. А топик я тот помню, только вот найти его не смог перед тем как вопрос задать. 0