If pUnload Then Exit Sub
For i = Forms.Count - 1 To 0 Step -1
Unload Forms(i)
Next
DVV писал(а):Да процедура есть,у меня часы,Кроме того возникает одна проблемка,при выгрузке программы из трея,она иногда не выгружается,
хотя значок в трее исчезает,повторяю иногда(не всегда).В чём дело?
codemaster писал(а):DVV писал(а):Да процедура есть,у меня часы,Кроме того возникает одна проблемка,при выгрузке программы из трея,она иногда не выгружается,
хотя значок в трее исчезает,повторяю иногда(не всегда).В чём дело?
Если пользуеш таймеры то
перед выгрузкой форм их надо остановить.
Shell_NotifyIcon NIM_DELETE, mvNotifyIcon
'Где mvNotifyIcon, ваш тип NOTIFYICONDATA_TYPE
Sirik писал(а):Первый раз слышу, что после выгрузки формы - таймера ещё работают. Это как?
codemaster писал(а):Sirik писал(а):Первый раз слышу, что после выгрузки формы - таймера ещё работают. Это как?
Здравстуйте! Приехали!
Sirik писал(а):Если Объект (в частности таймер) находится на форме и когда ты форму выгружаешь, то автоматически выгружаются все объекты, компоненты и т.д. т.п., которые расположены на форме.
Это же тривиально.
Почитай книжки.
private sub Form_Unload(...)
dim V as Control
for each V in me.controls
if typeof v is timer then v.enabled = false
next v
doevents
...
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1