✔ Anfängerfrage! Ja, nein....

[Mailyn]

Also, ich habe per Suchfunktion nix gefunden, obwohl ich sicher bin, dass es so ein Thema schon gibt... egal!
Also:
Also, ich habe eine MsgBox, in der steht: "Willst du dieses Programm beenden?"
Und ich habe zwei Buttons in dieser Box: "Ja" und "Nein"!
Also, und ich will wissen, wie es geht, dass, wenn man dann auf "Ja" drückt, dass dieser Button irgendwie die end-Funktion einleited und, wenn man "Nein" drückt, dass man dann zur Form zurückkommt!
Wie geht das?

 

[wincnc]

Hallo, versuch´s mal hiermit:

Private Sub Form_Unload(Cancel As Integer)

If MsgBox("Willst du dieses Programm beenden?", vbQuestion + vbYesNo, "Beenden") = vbNo Then
 Cancel = 1
End If

End Sub

 

[Mailyn]

Ähm... bin noch Anfänger! Wo muss ich diesen Code einsetzen?

 

[NRFi]

hi,

geh im codeeditor links oben in der combobox auf deine form und wähle dann rechts daneben den event Unload aus.

Dann generiert er dir einen Unload-event
(

Private Sub Form_Unload(Cancel As Integer)

End Sub

)

und da packst du jetzt

If MsgBox("Willst du dieses Programm beenden?", vbQuestion + vbYesNo, "Beenden") = vbNo Then
 Cancel = 1
End If

rein.
Es reicht eigentlich, wenn du den Codevorschlag
(

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Willst du dieses Programm beenden?", vbQuestion + vbYesNo, "Beenden") = vbNo Then
 Cancel = 1
End If
End Sub

)
einfach irgendwo in den Code (zb unterhalb deines codes) hinkopierst.



Gruß, NRF

 

[wincnc]

In Deine Form.

 

[wincnc]

Private Sub NameDeinerForm_Unload(Cancel As Integer)

Ist falsch !

Muss heisen:

Private Sub Form_Unload(Cancel As Integer)

 

[NRFi]

ja, stimmt, hab mich mit ctrls vertan

 

[Mailyn]

Danke! ;-)
Ist gut zu wissen, dass ihr nem Anfänger helft! :-D