Jak zrobić, by kliknięcie na "Anuluj" powodowało anulowanie wyłączania formy?

0
    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

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

1 użytkowników online, w tym zalogowanych: 0, gości: 1