フォームにOKボタン、キャンセルボタンを付けたダイアログウィンドウを表示する方法を紹介します。これらのボタンがクリックされるとフォームは閉じられ、どのボタンが押されたかが取得できるようにします。さらに、Enterキーを押すことによりOKボタンがクリックされたことになるようにし、Escキーを押すことによりキャンセルボタンがクリックされたことになるようにします。
1.OKボタンを作成するには、フォームにButtonコントロールを追加し、DialogResultプロパティを「OK」にします。キャンセルボタンは同様にButtonコントロールのDialogResultプロパティを「Cancel」にします。
2.フォームのどのボタンが押されたのかを知るには、フォームのShowDialogメソッドの戻り値を調べるか、ShowDialogメソッドを呼び出した後、フォームのDialogResultプロパティを調べます。以下はその例です。
'フォームの作成 Dim f As Form1 = New Form1() 'フォームの表示 If (f.ShowDialog(Me) = DialogResult.OK) Then Console.WriteLine("OKボタンが押されました。") End If 'DialogResultプロパティを調べる If (f.DialogResult = DialogResult.OK) Then Console.WriteLine("OKボタンが押されました。") ElseIf (f.DialogResult = DialogResult.Cancel) Then Console.WriteLine("キャンセルボタンが押されました。") End If f.Dispose()
//フォームの作成 Form1 f = new Form1(); //フォームの表示 if (f.ShowDialog(this) == DialogResult.OK) { Console.WriteLine("OKボタンが押されました。"); } //DialogResultプロパティを調べる if (f.DialogResult == DialogResult.OK) { Console.WriteLine("OKボタンが押されました。"); } else if (f.DialogResult == DialogResult.Cancel) { Console.WriteLine("キャンセルボタンが押されました。"); } f.Dispose();
3.Enterキーの押下でOKボタンをクリックしたことにするためには、フォームのAcceptButtonプロパティでそのボタンを指定します。同様にEscキーの押下でキャンセルボタンをクリックしたことにするためには、フォームのCancelButtonプロパティでそのボタンを指定します。
以上で出来上がりです。
補足:f.Dispose()の必要性について「Form.DialogResult プロパティ」に次のようにあります。
「DialogResult プロパティの値を設定した場合には、 Close メソッドは .NET Framework によって呼び出されません。その場合はフォームが非表示になるだけで、ダイアログ ボックスの新しいインスタンスを作成しなくてもそのフォームを再表示できます。ダイアログ ボックスとして表示されているフォームは Close メソッドで閉じられることはないため、フォームがアプリケーションで不要になった場合は、そのフォームの Dispose メソッドを呼び出す必要があります。」
補足:上ではButtonコントロールのDialogResultプロパティを使用して結果を設定しましたが、そうせずに、ButtonコントロールのClickイベントハンドラでフォームのDialogResultプロパティを設定しても同じことができます。モーダルフォームのDialogResultプロパティを設定すると、そのフォームは非表示になります。
補足:フォームの「閉じる」ボタン(フォームの右上にある「X」ボタン)や「Alt + F4」キー、あるいはForm.Closeメソッドなどによりフォームが閉じされたときは、ShowDialogメソッドはDialogResult.Cancelを返します。もしこれらによって閉じされたときでも状況に応じて別のDialogResultを返したいのであれば、ClosingイベントハンドラでフォームのDialogResultプロパティの値を変更してください。
以下にTextBox1の内容が変更されていれば(Modifiedプロパティがtrueであれば)DialogResult.OKを返すコードを示します。
注意:.NET Framework 2.0以降では、FormクラスのClosing、Closedイベントの代わりに、FormClosing、FormClosedイベントを使用してください。
Protected Overrides Sub OnClosing(ByVal e As CancelEventArgs) 'TextBox1の内容が変更されていればOKを返す If Me.TextBox1.Modified Then Me.DialogResult = DialogResult.OK End If End Sub
protected override void OnClosing(CancelEventArgs e) { //TextBox1の内容が変更されていればOKを返す if (this.TextBox1.Modified) this.DialogResult = DialogResult.OK; }