Kontrollere lukkeknapp i et Windowsvindu (krysset)

[endrebjo]

Finnes det noen måte man kan kjøre følgende kodesnutt når brukeren trykker på krysset oppe i høyre hjørnet på en vindu?

Dim Form As Form
 For Each Form In Forms
  Unload Form
 Next

[Jonas]

Private Sub Form_Unload(Unload As Integer)
   ' Kode
End Sub

Burde vel duge.

[Harald Staff]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim F As Form
If UnloadMode = 0 Then
   For Each F In Forms
       Unload F
   Next
End If
End Sub

 

HTH. beste hilsen Harald

[Jonas]

Hva er det QueryUnload gjør som ikke Unload gjør? Viser den "hva slags" unload som skjer?

[endrebjo]

Ahh... takker dere.

 

Hadde vært kjekt å få svar på Jonas sitt spørsmål også.

[Gjakmarrja]

Hva er det QueryUnload gjør som ikke Unload gjør? Viser den "hva slags" unload som skjer?

5420675[/snapback]

 

Du ser jo det...

 

QueryUnload har en abort mulighet, sånn at du kan stoppe avsluttning viss du vil utifra kode du kjører der.

Unload er til f.eks kode som updaterer database før programmet slutter....

 

Er jeg på jorde no eller?

 

Svein

[Jonas]

Jepp, på jorde.. Med _Unload kan man også avslutte unloadinga ved å sette Unload til 1 eller 0, husker ikke helt

 

Edit: Burde vel rename den til Cancel, er vel det egentlig orginale navnet.

Endret 11. januar 2006 av Jonas

[Harald Staff]

Den viser hva slags lukking det er snakk om ja, og spørsmålet gjalt da spesifikt krysset oppe høyre, dvs 0 . Fra Help:

 

Return Values

 

The closemode argument returns the following values:

 

vbFormControlMenu 0 The user has chosen the Close command from the Control menu on the designer or clicked the Close button.

 

vbFormCode 1 The Unload statement is invoked from code.

 

vbAppWindows 2 The current Windows operating environment session is ending.

 

vbAppTaskManager 3 The Windows Task Manager is closing the application.

 

vbFormMDIForm 4 An MDI child form is closing because the MDI form is closing.

 

HTH. Beste hilsen Harald

[endrebjo]

OK. Men hvis jeg bare bruker Form_Unload, så kjøres koden ved alle mulige lukkinger, så da blir det den.

[Harald Staff]

Alle kjører ved lukking, i en fast rekkefølge:

 

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
MsgBox UnloadMode, , "QueryUnload"
End Sub

Private Sub Form_Terminate()
MsgBox "terminate"
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "unload", , "unload"
End Sub

 

Det var bare litt underlig at du spurte om noe annet enn du ville ha. Men for all del, så lenge vi har lært noe er jo alle glade

Beste hilsen Harald