Een programma sluiten of niet (met X)

Status
Niet open voor verdere reacties.

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
Code:
Private Sub Form_Unload(Cancel As Integer)

If MsgBox("Wilt echt sluiten?", vbYesNo + vbQuestion, "ProgName") = vbYes Then

'programma sluiten
Cancel = False
Unload Form1
End
End If

If Cancel = True Then ' programma Niet sluiten
Exit Sub
End If

End Sub

Als ik op X druk dan krijg ik de vraag om de programma te sluiten of niet.
Als ik JA beantwoord sluit de programma. Het is ok.

Maar als ik NEE (Cancel) druk dan sluit de programma niet maar gaat de toch form toch weg.

Mijn bedoeling is:
Als ik Ja zeg moet de programma sluiten.
Als ik NEE zeg (Cancel) moet de de programma open blijven.

waar zit mijn fout?
dank U
 
Laatst bewerkt:
Cancel is nooit True als je die waarde zelf niet zet. Ik kan het zo even niet testen maar ik denk dat dit voldoende is:
Code:
Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Wilt echt sluiten?", vbYesNo + vbQuestion, "ProgName") = vbNo Then Cancel = True
End Sub

Maaruh, Form_Unload ?
Welke versie van VB.Net is dat?
 
Laatst bewerkt:
VB 6 dag Edmoor

ja, nu werkt wel CANCEL.
Maar als ik Ja zeg dan sluit de programma niet volledig. De form gaat wel weg maar de programma blijft hangen.
Ik wou toch Unload +End toevoegen (als ik JA zeg)
 
Zo lijkt te werken
Code:
Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Wilt echt sluiten?", vbYesNo + vbQuestion, "ProgName") = vbNo Then
    Cancel = True
    End If
   If Cancel = False Then
     Unload Form1
     End
     End If
End Sub
 
Maak er dan dit van:
Code:
Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Wilt echt sluiten?", vbYesNo + vbQuestion, "ProgName") = vbNo Then
        Cancel = True
    Else
        Unload Form1
        End
    End If
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan