VPF::Удаление приложения из памяти

ArtNeoX

Дата 12.2.2006, 06:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 23.10.2005

Репутация: нет
Всего: нет

Запускал несколько раз свою программу в win 98. Потом нажал ctrl+alt+del и в списке процессов висит Project1 столько раз сколько я ее запускал и выходил из программы.
Как програмно при выходе из программы очистить память?

Exception

Дата 12.2.2006, 16:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186

Если он там висит, значит приложение не завершилось smile

. Нужно либо дать команду End, либо (что предпочтительнее) вызвать специальную процедуру, которая высвобождает все ресурсы и выгружает все загруженные формы.

ArtNeoX

Дата 12.2.2006, 16:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 23.10.2005

Репутация: нет
Всего: нет

в xp все нормально, а вот в win 98 продолжает висеть в памяти....

Exception

Дата 12.2.2006, 18:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186

Цитата(ArtNeoX @ 12.2.2006, 17:24

)

в xp все нормально, а вот в win 98 продолжает висеть в памяти....

Покажи код.

Flotskiy

Дата 13.2.2006, 07:40 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 223
Регистрация: 15.11.2004
Где: г. Омск

Репутация: 1
Всего: 2

Добрый день всем!
При загрузке проги советую производить проверку от вторичного запуска:

Код


Private Sub Form_Load()
'========== Страховка от второго запуска проги.==========
If App.PrevInstance = True Then
MsgBox "Программа уже запущена!"
End
End If

А при выходе из программы советую:

Код


Private Sub Form_Unload(Cancel As Integer)
   
Dim ws As Workspace
Dim db As Database
Dim rs As Recordset
'
For Each ws In Workspaces
For Each db In ws.Databases
For Each rs In db.Recordsets
rs.Close
Set rs = Nothing
Next
db.Close
Set db = Nothing
Next
ws.Close
Set ws = Nothing
Next
Set frmGlavn = Nothing
Dim i As Integer
For i = Forms.Count - 1 To 0 Step -1
Unload Forms(i) 'Выгружаем все формы проекта
Next i
    Unload Me
    Set frmGlavn = Nothing
End Sub

Всего доброго!

--------------------

FlotskiySk k

Wilmor

Дата 26.2.2006, 14:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 26.2.2006
Где: NET

Репутация: нет
Всего: нет

Или посавь такой код в кнопку выхода smile

Код


Unload Me
End

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »