Работа программы из модуля

[BStudio]

Прошу помочь

Проблема довольно проста.

В проекте (MS Visual Studio 2010 Ultimate) есть модуль и есть форма.
Тип будущего приложения: Служба Windows (иначе не нужно).
Автоматически запускаемый объект: Sub Main (так нужно)

Проблема в том, что мне, чтобы показать форму, нужно чтобы прошло 2 часа (к примеру). Я, соответственно, добавляю в модуль таймер, в событии Sub Main задаю ему интервал и включаю его. Но, он не работает т.е. ничего, дальше события Main не идёт.

Вот, как это примерно выглядит:

Module Code1
Public WithEvents Timer1 As System.Timers.Timer = New System.Timers.Timer()

Sub Main(ByVal cmdArgs() As String)
Timer1.Interval = 120 * 60000		'x120 Min
Timer1.Enabled = True
End Sub

Private Sub ДЗЫНЬ_ДЗЫНЬ(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Timer1.Elapsed
Timer1.Enabled = 0
Dim MF As Form = New MainForm()
MF.Show()
MF = Nothing
End Sub
End Module

Убедительная просьба, свои мнения и взгляды на актуальность вопроса, его 'тупость' и подобные критерии, не относящимся к решению задачи, оставить при себе

+ Две красивых обои на ваш рабочий стол

 

[alex77755]

интервал у таймера, вроде, не может быть таким большим.
Попробуй запомнить время запуска. А таймером проверять разницу между текущим временем

 

[BStudio]

интервал у таймера, вроде, не может быть таким большим.

Спасибо большое, сейчас попробую.
..Но почему тогда ошибки не было.. ни 'предупреждения', ни 'сообщения'..

_по-моему понял, почему..

 

[BStudio]

НЕТ! Сделал интервал 1 сек. (1000) - всё равно ничего не продолжается дальше, чёрт возьми, Sub Main'a.

Q: Почему так уверенно говорю, что не продолжается дальше Sub Main'a
A: Потому что проверял каждую строчку исполнения старыми, но эффективными, дедовскими методами. MessageBox'ами. Всё идёт.. только не совсем всё... Помогите, pls... Я уже так не могу.. :KillMe:

 

[Tanya]

Вот, чисто теоретически (ибо нет времени проверять):

1) Почему не срабатывает таймер - не успевает. По коду, задаем интервал, делаем Enabled и следующая строка - End Sub, а поскольку это Sub Main, то это окончание работы программы.

2) Что (наверное ))) можно сделать: в Sub Main открывать форму невидимой, на которой запускается таймер (или может не на форме таймер, это определяем методом проб), который в требуемое сделает форму видимой. Скорее всего при создании формы управление программой будет передано этой форме и пока она не закроется End Sub не сработает.

 

[BStudio]

Tanya,
однозачное вам 'Спасибо', но вот как-раз-то дело с того и началось, что мне нужно было убрать
своё приложение из Диспетчер задач Windows > (вкладка) Приложения, а если есть форма, то, как я понял,
его оттуда никак не убрать (т.к. это не MS Visual Basic 6, в котором есть
замечательнейший класс App (App.TaskVisible = False))

Есть предположение, вставить перед End Sub что-то вроде:

Dim i As Byte = 1
Do While i > 0
i = 1
Loop

Но возникает актуальный вопрос: 'Это сильно будет систему грузить ?'
И: 'Рекурсия ?'

Если рекурсия, то:

Dim i As Long
e1: If i > 9223372036854775807 Then i += 1 Else i = 0
GoTo e1

=> вопрос первый меня волнует больше

а поскольку это Sub Main, то это окончание работы программы.

А если из Sub Main вызвать ещё что-то, а там таймер запустить ? fftop:

 

[BStudio]

Спасибо. Вы совершенно правы.