Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
FormのFormClosingイベントが意図した動作をしてくれない
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=9441#CommentId13447
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
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