Luk program

Har du været så \"uheldig\" at du f.eks. har brugt unload me istedet for f.eks. end ???

Du kunne lave en Form_Unload den vil lukke de formler der ikke er lukket når du trykker på kryset, så skulle dit program været lukket.

eks:

Private Sub Form_Unload(Cancel As Integer)
\'Cancel = -1
Unload Form1 \'Luk Form1
Unload Form2 \'Luk Form2
Unload Form3 \'Luk Form3
Unload Form4 \'Luk Form4
End Sub

er nok mest brugt til spør om der skal gemmes :)

Hej Compilos.

Jeg er erfaring med, at når brugere benytter krydset i højre hjørne, afsluttes programmet ikke fuldstændig, trods det at der står:

Sub Form_Unload (Cancel As Integer)
    QuitHelp
    End
End Sub

Når der derimod med lignende kode afsluttes fra en knap eller et menupunkt fjernes programmet totalt fra joblisten.

Ved åbning af (første) form har jeg indsat:

If app.PrevInstance Then
  x = MsgBox(\"Programmet er allerede startet én    gang. Hvis du ikke kan få det på skærmen, så    kig i joblisten med CTRL + ESC og afslut det    dér.\", 16, \"JkfSoft RS - medd. fra \'Form1\'.\")
  End
End If

M.v.h.  Jørn

Hej.

Du skal passe på ikke at lukke dine former med Form.Hide. men med Unload Me

dvs. når bruger trykker på en kanp skal du ikke lukke formen ned med Form.Hide men med Unload Me

Vist her:
Private Sub Command_Click()
Unload Me
End Sub


ok ;)

Sjh får pointene, da det var det jeg skulle bruge.