タイトル : Re: FormClosing内でのButton1.PerformClick()について 投稿日 : 2014/03/03(Mon) 16:35 投稿者 : VBレスキュー(花ちゃん)
下記のような動作でよいのですよね。 問題がないように思うのですが? Public Class Form1 Private m_bChangeFlg As Boolean Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load m_bChangeFlg = True End Sub Private Sub cmdSave_Click(sender As System.Object, e As System.EventArgs) Handles cmdSave.Click MessageBox.Show("保存しました") m_bChangeFlg = False End Sub Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If m_bChangeFlg Then Select Case MsgBox("データが変更されています。保存しますか?", vbYesNoCancel, Me.Text) Case vbYes cmdSave.PerformClick() If m_bChangeFlg Then e.Cancel = True Exit Sub End If Case vbNo Case vbCancel e.Cancel = True Exit Sub End Select End If End Sub End Class |