양식 닫는 이벤트에 나는 수수께끼입니다

Question

"x"버튼을 클릭하면 "정말 끝내시겠습니까?"라는 메시지 상자가 나타납니다. "예"이면 닫고 "아니오"이면 열어 둡니다. 그래서 내 코드는 다음과 같습니다.

Dim a As Integer 
a = MessageBox.Show("Are you sure you want to exit?", _ 
        "Vice Versa 1.0", _ 
        MessageBoxButtons.YesNo, _ 
        MessageBoxIcon.Information) 
If a = vbYes Then 
    Me.Close() 
Else 
    Exit Sub 
End If 

"아니오"를 클릭하면 내 프로젝트를 디버깅 할 때 여전히 내 프로그램이 종료됩니다. 이것은 단지 디버그 모드에 있거나 여기에 뭔가 빠져 있기 때문입니까?

(EDIT :) 경고 또는 오류도 표시되지 않습니다.

메시지 상자가 표시 될 때 게임을 일시 중지시킬 수있는 방법이 있습니까? 사용자가 키보드의 "p"키를 누르는 것만으로도 작업 할 수 있습니다. 또한 "p"를 누르지 않고도 메시지 상자가 표시되면 게임이 일시 중지되기를 원합니다.

Answer 1

닫기를 취소하려면 Cancel 속성을 설정해야합니다.

e.Cancel = True 

을하고 다시 요문을 할 필요가 없습니다 : Exit Sub 전에 줄에 추가 할 수 있습니다. If 블록을 작성하는 더 좋은 방법은 다음과 같습니다.

a = MessageBox.Show(....) 
If a = DialogResult.No Then 
    e.Cancel = True 
End If