Jag har ett program med endast en modul och i den en sub Main().
En (mycket) nedbantad version:

<code>
Sub Main()
While 1
DoEvents
Wend
End Sub
</code>

Om jag kör igång programmet och sedan avslutar windows, avslutar ju windows även mitt program. Hur får man reda på det?

Om du har en Form, kan du kolla på eventet Query_Unload
Du kan ju ha ett gömt formulär, så syns inte nåt...

/micke

Jag har ingen form och hela meningen är att jag inte har det heller!

*Ryser* Hemsk kod. Vad vill du göra? Ska programet reagera när du avsluter?

* Skapa en klass lägg koden som skall utföras vid avslut i Terminate eventet.

<code>
'Module: Module1
Private mClass1 as Class1

Sub Main()
Set mClass1 = New Class1
Do
DoEvents
Loop
End Sub

'Class: Class1
Private Sub Class_Terminat()
'Gör något vettigt
Beep
End Sub
<code>

*Ryser* Hemsk kod. Vad vill du göra? Ska programet reagera när du avsluter?

* Skapa en klass lägg koden som skall utföras vid avslut i Terminate eventet.

<code>
'Module: Module1
Private mClass1 as Class1

Sub Main()
Set mClass1 = New Class1
Do
DoEvents
Loop
End Sub

'Class: Class1
Private Sub Class_Terminat()
'Gör något vettigt
Beep
End Sub
<code>

Kan man i class_terminate ta reda på hur programmet avslutades? Windows avslutade det. Användaren avslutade det. I query_unload finns ju det...

Om man har ett program som skapar en class och inte vill ha en sådan "runloop", hur gör man då för att programmet inte ska avslutas?

Går bara att få reda på att det avslutats.

Om du inte har något formulär kan det ju bara avslutas av windows, eller att man dödar processen.

/johan/