• フォームにOKボタン、キャンセルボタンを付ける

• この記事への評価、コメント

フォームにOKボタン、キャンセルボタンを付ける

フォームにOKボタン、キャンセルボタンを付けたダイアログウィンドウを表示する方法を紹介します。これらのボタンがクリックされるとフォームは閉じられ、どのボタンが押されたかが取得できるようにします。さらに、Enterキーを押すことによりOKボタンがクリックされたことになるようにし、Escキーを押すことによりキャンセルボタンがクリックされたことになるようにします。

１．OKボタンを作成するには、フォームにButtonコントロールを追加し、DialogResultプロパティを「OK」にします。キャンセルボタンは同様にButtonコントロールのDialogResultプロパティを「Cancel」にします。

２．フォームのどのボタンが押されたのかを知るには、フォームの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();

３．Enterキーの押下でOKボタンをクリックしたことにするためには、フォームのAcceptButtonプロパティでそのボタンを指定します。同様にEscキーの押下でキャンセルボタンをクリックしたことにするためには、フォームのCancelButtonプロパティでそのボタンを指定します。

以上で出来上がりです。

以下にTextBox1の内容が変更されていれば（Modifiedプロパティがtrueであれば）DialogResult.OKを返すコードを示します。

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;
}

• 参考：
• ダイアログ ボックスへのユーザー入力
• ダイアログ ボックスを閉じてユーザー入力を保持する
• ダイアログ ボックスの結果の取得

• 履歴：
• 2010/3/2 文章の間違いを修正。