【VB.NET】「色を設定する」ダイアログボックスを表示するには？

訪問して頂きありがとうございます。まさふくろーです。

この記事では、「色を設定する」ダイアログボックスを表示する方法をご紹介します。

「色を設定する」ダイアログボックスを表示する
- サンプルプログラム
関連記事

「色を設定する」ダイアログボックスを表示する

「色を設定する」ダイアログボックスを表示するには、ColorDialogクラスをインスタンス化します。
書式は、以下になります。

New ColorDialog()

ダイアログボックスを表示するには、ShowDialogメソッドを使います。
書式は、以下になります。

インスタンス化したColorDialog.ShowDialog()

ダイアログボックスの主なプロパティは、以下表になります。

プロパティ	内容
AllowFullOpen	カスタムカラーを定義可能にする場合は「True」（既定値）、しない場合は「False」。
AnyColor	使用できるすべての色を基本色セットに表示する場合は「True」、表示しない場合は「False」（既定値）。
Color	選択された色。
CustomColors	カスタムカラーセット。int型の配列。
FullOpen	ダイアログボックスを開いたとき、カスタムカラー作成用コントロールを表示する場合は「True」、表示しない場合は「False」（既定値）。
ShowHelp	「ヘルプ」ボタンを表示する場合は「True」、表示しない場合は「False」（既定値）。

サンプルプログラム

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim Ret As DialogResult

        Try

            Using Dialog As New ColorDialog()

                With Dialog
                    .Color = TextBox1.BackColor
                End With

                Ret = Dialog.ShowDialog()

                If Ret = DialogResult.OK Then

                    TextBox1.BackColor = Dialog.Color

                    Label1.Text = "テキストボックスの背景の色を変更しました。"

                End If

            End Using

        Catch ex As Exception

            Label1.Text = Err.Description

        End Try

    End Sub
End Class

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim Ret As DialogResult

Try

Using Dialog As New ColorDialog()

With Dialog

.Color = TextBox1.BackColor

End With

Ret = Dialog.ShowDialog()

If Ret = DialogResult.OK Then

TextBox1.BackColor = Dialog.Color

Label1.Text = "テキストボックスの背景の色を変更しました。"

End If

End Using

Catch ex As Exception

Label1.Text = Err.Description

End Try

End Sub

End Class

2	「色を設定」ボタンクリック時に以下処理を行う。
8	「色を設定する」ダイアログボックスのインスタンス化。（Usingステートメントでリソース開放を自動化）
10	ダイアログボックスの設定。
11	テキストボックスに設定されている背景色をダイアログボックスに反映。
14	ダイアログボックスを表示する。
16	ダイアログボックスで「OK」ボタンが押された場合、
18	ダイアログボックスで選択した色をテキストボックスの背景色に反映。
20	正常終了のメッセージをラベルに表示する。
26	処理の実行中にエラーが発生した場合、
28	エラー内容を取得し、ラベルに表示する。