Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Select Case MsgBox("Chcesz wyłączyć aplikacje?", MsgBoxStyle.YesNo Or MessageBoxIcon.Question, "Wyłączanie aplikacji")
Case MsgBoxResult.Yes
Case MsgBoxResult.No
e.Cancel = true
'ok poradzilem
End Select
End Sub
0
0
Style i buttony to jeden i ten sam parametr, połącz je OR-em.
0
@kosmita90he - wypieprz te kejsy i zapisz kod normalnie; W Delphi wystarczy rezultat Messagebox przyrównać do wymaganej wartości i od razu wynik warunku wrzucić do Result:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := Application.MessageBox('Close program?', 'Closing', MR_YESNO) = IDYES;
end;
Teraz zapisz to w VB i nie popełniaj takich tasiemców w przyszłości - minimalizuj kod zawsze, jeśli to możliwe i nie utrudni jego analizy;
PS: Przycisk Anuluj
jest zupełnie niepotrzebny, bo będzie odgrywał dokładnie taką rolę, jak przycisk Nie
oraz zamknięcie formularza systemowym przyciskiem krzyżyka (które zwraca IDCANCEL
).
0
Private Sub Form1_FormClosing(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosing
if MsgBox("Chcesz wyłączyć aplikacje?", MsgBoxStyle.YesNo Or MessageBoxIcon.Question, "Wyłączanie aplikacji")<>MsgBoxResult.Yes
e.Cancel = true
End If
End Sub