１．[色の設定]ダイアログボックスの使用方法(28_Dia_01)　(旧、SampleNo.061)

１．カラーダイアログボックスを使って、色を選択しテキストボックスのバックカラーに設定する ２．色の作成ボタンを有効/無効にする及び色の作成部分の初期表示 ３．選択できる色を純色だけに制限/使用可能なすべての色を基本色セットとしてダイアログボックスに表示 ４． ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし 使用コン：Button1 / Button2 / Button3 / トロール： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．カラーダイアログボックスを使って、色を選択しテキストボックスのバックカラーに設定する

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click 'ダイアログボックスを使って、色を選択しテキストボックスのバックカラーに設定する     'ColorDialog クラスのインスタンスを作成(ツールボックスから貼り付ける場合は必要ありません)     Dim ColorDialog1 As New ColorDialog     With ColorDialog1         'ダイアログボックスを表示しOKボタンが押されたら         If .ShowDialog = DialogResult.OK Then             TextBox1.Text = " Color.Name = " & .Color.Name             TextBox1.BackColor = .Color   'テキストボックスのバックカラーを設定         End If     End With     ColorDialog1.Dispose() End Sub

２．色の作成ボタンを有効/無効にする及び色の作成部分の初期表示

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '色の作成ボタンを有効/無効にする及び色の作成部分の初期表示     Dim ColorDialog1 As New ColorDialog     With ColorDialog1         'カスタムカラーの作成用のコントロールを表示する         .FullOpen = True         '色の作成ボタンを有効にする(FullOpen = True の場合は無効になる)         .AllowFullOpen = True         If .ShowDialog = DialogResult.OK Then             TextBox1.Text = " Color.Name = " & .Color.Name             TextBox1.BackColor = .Color         End If     End With     ColorDialog1.Dispose() End Sub

３．選択できる色を純色だけに制限/使用可能なすべての色を基本色セットとしてダイアログボックスに表示

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click '選択できる色を純色だけに制限/使用可能なすべての色を基本色セットとしてダイアログボックスに表示 'このプロパティは、表示色がフルカラーのシステムでは、TRUE に設定しても変化がありません。     Dim ColorDialog1 As New ColorDialog     With ColorDialog1         '使用可能なすべての色を基本色セットとして表示する場合は true。それ以外の場合は false。 既定値 false です。         .AnyColor = False         'ユーザーが純色のみ選択できる場合は true。それ以外の場合は false。 既定値 false です         .SolidColorOnly = True         If .ShowDialog = DialogResult.OK Then             TextBox1.Text = " Color.Name = " & .Color.Name             TextBox1.BackColor = .Color         End If     End With     ColorDialog1.Dispose() End Sub

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

ダイアログボックス　　Dialog Box　色の設定のダイアログボックス