msgbox wanneer hij wil closen

[ninjaplayer]

msgbox wanneer form wil closen

Weet iemand hoe je een msgbox laat verschijen als er op de x rechtboven wordt geklikt?

Alvast bedankt :thumb:

 

[CoD_NL]

Volgens mij moet je daarvoor het form_unload event hebben.

 

[That Guy]

ja, zoiets (uit hoofd):

unload = 1
dim xMBR as messageboxresult
xMBR = msgbox "Wil je echt stoppen?","titel", vbyesNo+vbInformation

if cstr(xMBR) = "yes" then
   unload = 0
else
   unload = 1
   exit sub  '  mischien werkt dit niet, iemand een idee?
end if

zoiets kan, maar ook een stuk korter asl het nodig is door je if-loop samen te trekken met de msgbox

V.:thumb:

[edit] mischien moeten unload=1 en unload=0 omgedraaid worden, I forgot[/edit]

 

[ninjaplayer]

unload staat er niet tussen . volgens mij omdat ik vb 2008 gebruik.

 

[That Guy]

dat weet ik wel zeker.

Is er niet iets van een form1_unload of form1_exit ofzo? iets wat er op lijkt?

 

[ninjaplayer]

ik heb formclosing gevonden, maar als ik de code voor de msgbox intik en het test, sluit ie alsnog af als je op annuleren klikt. ook nog formclosed maar dan is ie al afgesloten.

 

[ninjaplayer]

Ik was vergeten te zeggen dat er ook een cancel button was .

Edit: Gevonden! Het is e.Cancel :thumb:

 

[eeyk]

Private Sub Form_Unload(Cancel As Integer)

yesno = msgbox("HIER JE BERICHT...", vbyesNo, "HIER TITLE")

if VbYes then
unload me
else
end if

End Sub

 

[That Guy]

Eeyk, als je had gelezen dan had je gezien dat ik +/- die code al had neergezet, en dat het niet werkte omdat het VB6 is. Dit gaat om 200X.

Anywho, mooizo. Je zult dus iets met

e.Cancel = true
[COLOR="SeaGreen"]' msgbox - code[/COLOR]
e.cancel = false

moeten doen ofzo.

V.:thumb: