08/07/12 08:59:55
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim henji As DialogResult
Label1.Text = Nothing
henji = MessageBox.Show("続けますか", "質問", MessageBoxButtons.YesNo)
While henji = Windows.Forms.DialogResult.Yes
Label1.Text &= "「はい」を押しました。継続します。" & ControlChars.NewLine
henji = MessageBox.Show("続けますか", "質問", MessageBoxButtons.YesNo)
End While
Label1.Text = "「いいえ」を押しました。終了します"
End Sub
End Class
上のプロジェクトでWhileと End Whileの間の
henji = MessageBox.Show("続けますか", "質問", MessageBoxButtons.YesNo)
を消去して、プロジェクトをビルド・実行すると、ダイアログボックスで
「はい」を推した場合、フォームに何も表示されず反応しなくなるが、「はい」
を推したのだから、「「はい」を押しました。継続します。」は表示されるはず
だと思うのですが、なぜ表示されないのでしょうか。