ActiveX

[kif]

Драсте

Проблема следующая:

В моем контроле есть свойство boolean. С его помощью пользователь запускает процедуру (в контроле) или отключает. В этой процедуре есть цикл Do loop.

Проблема: Когда польователь сам запускает процедуру и истанавливает ее - все нормально, но когда он запускает ее и закрывает программу этот цикл do loop остается работать и ... вис.

[kif]

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

[codemaster]

уничтожение контрола

Terminate ?

[kif]

Пишу:

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

Private Working As Boolean

Public Property Get Processes() As Boolean
  Processes = Working
End Property

Public Property Let Processes(ByVal vNewValue As Boolean)
  Working = vNewValue
  Proc
End Property

Private Sub Proc()
  Do While Working
  'код...
  Loop
End Sub

Private Sub UserControl_Terminate()
  Working = False
End Sub

не помогает, остается висеть.

[kif]

ОЦТЫ, ну помогите же.

[codemaster]

Если не ошибаюсь Есть следующая последовательность событий

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

Form_Unload

UserControl_Terminate

Form_Terminate



В Form_Unload попробуй остановить свой Do While

Хотя что ты задумал мягко говоря .....

[Andrey Fedorov]

ОЦТЫ, ну помогите же.

Да держи...

[kif]

Andrey Fedorov спасибо большое