投稿者 winvis  (学生) 投稿日時 2009/11/7 11:23:24
テキストエディタ(MDI形式)を作っているのですが終了時に、テキストボックスに、変更があったときに保存するか否かそれともキャンセルか(はい、いいえ、キャンセルのボタンのついたダイアログ)を、聞くようにしたのですが、キャンセルを押しても、終了しません!いい絵でも、終了しません
と言うか、ダイアログがループしてしまいます!(消えて、すぐもう一個出てくる)
原因がわかりません・・・
誰か、助けてくださいorz

Private Sub Form3_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing

        If TextBox1.Modified = True Then
            If MessageBox.Show("変更されていますが保存しますか?", Form1.Name, _
       MessageBoxButtons.YesNoCancel, _
        MessageBoxIcon.Exclamation, _
    MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
                Dim SaveFileDialog As New SaveFileDialog
                SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
                SaveFileDialog.Filter = "HTMLファイル(*.html)|*.html|テキスト ファイル (*.txt)|*.txt|すべてのファイル (*.*)|*.*"

                If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
                    Dim FileName As String = SaveFileDialog.FileName
                    IO.File.WriteAllText(FileName, Me.TextBox1.Text, System.Text.Encoding.GetEncoding("UTF-8"))

                End If
                If DialogResult.Cancel Then
                    e.Cancel = True

                End If
            Else
                Me.Close()
            End If
        End If
    End Sub