Public Class Form1
'クロージングイベント
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If MessageBox.Show("終了しますか？", "終了確認ダイアログ", MessageBoxButtons.YesNo) = DialogResult.No Then
e.Cancel = True
End If
End Sub
End Class
|
