Jag har ett program med endast en modul och i den en sub Main(). Om du har en Form, kan du kolla på eventet Query_Unload 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? *Ryser* Hemsk kod. Vad vill du göra? Ska programet reagera när du avsluter? 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 du inte har något formulär kan det ju bara avslutas av windows, eller att man dödar processen.Ta reda på när windows avslutar mitt program
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?Sv: Ta reda på när windows avslutar mitt program
Du kan ju ha ett gömt formulär, så syns inte nåt...
/mickeSv: Ta reda på när windows avslutar mitt program
Sv: Ta reda på när windows avslutar mitt program
* 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>Sv: Ta reda på när windows avslutar mitt program
* 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>Sv: Ta reda på när windows avslutar mitt program
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?Sv: Ta reda på när windows avslutar mitt program
/johan/