１．色の設定及び設定色名の取得(06_Col_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 ：追加なし 参照設定：追加なし その他　： 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．テキストボックスのバックカラーを設定する

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'テキストボックスのバックカラーを設定する     'バックカラーを設定(下記はすべて同じ色です)     TextBox1.BackColor = System.Drawing.Color.Yellow()     TextBox1.BackColor = ColorTranslator.FromWin32(&HFFFF)     TextBox1.BackColor = ColorTranslator.FromWin32(Microsoft.VisualBasic.RGB(255, 255, 0))     TextBox1.BackColor = Color.FromName("Yellow")     TextBox1.BackColor = ColorTranslator.FromHtml("#FFFF00")     TextBox1.BackColor = ColorTranslator.FromHtml("Yellow")     TextBox1.BackColor = ColorTranslator.FromWin32(65535)     TextBox1.BackColor = ColorTranslator.FromOle(QBColor(14))     TextBox1.BackColor = ColorTranslator.FromOle(RGB(255, 255, 0))     Button1.BackColor = Color.Yellow     '指定した Color 構造体を HTML カラーの文字列形式に変換します。     Debug.WriteLine(ColorTranslator.ToHtml(TextBox1.BackColor))     'Yellow     '指定した Color 構造体を OLE カラーに変換します。     Debug.WriteLine(ColorTranslator.ToOle(TextBox1.BackColor))      '65535     '指定した Color 構造体を Windows カラーに変換します。     Debug.WriteLine(ColorTranslator.ToWin32(TextBox1.BackColor))    '65535 End Sub

２．テキストボックスのフォアカラーを設定する

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'テキストボックスのフォアカラーを設定する     'フォアカラーを設定     TextBox1.ForeColor = System.Drawing.Color.Red     TextBox1.Text = "VBレスキュー(花ちゃん)" End Sub

３．テキストボックスのバックカラー名を取得する

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'テキストボックスのバックカラー名を取得する     TextBox1.Text = TextBox1.BackColor.Name End Sub

４．ダイアログボックスを使ってテキストボックスのバックカラーを設定

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 'ダイアログボックスを使ってテキストボックスのバックカラーを設定     Using ColorDialog1 As New ColorDialog         With ColorDialog1             .AllowFullOpen = True             '現在設定の色を選択(特に設定しなくてもよい)             .Color = TextBox1.BackColor             'ダイアログボックスを表示しOKボタンが押されたら             If .ShowDialog = Windows.Forms.DialogResult.OK Then                 TextBox1.BackColor = .Color   'テキストボックスのバックカラーを設定             End If         End With     End Using End Sub

５．デフォルトのカラー設定に戻す

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click 'デフォルトのカラー設定に戻す(BackColor をシステム定義色に設定する)     'BackColor プロパティを既定値にリセットします。(Default のカラーに戻す)     TextBox1.BackColor = Color.FromKnownColor(System.Drawing.KnownColor.Window)     'ForeColor プロパティを既定値にリセットします。     TextBox1.ForeColor = Color.FromKnownColor(System.Drawing.KnownColor.WindowText)     Button1.BackColor = Color.FromKnownColor(System.Drawing.KnownColor.Control)     Button1.ResetBackColor()    'でも同じですが、MSDN の解説に このクラスでは、このメソッドは無効です。と書いてある？     TextBox1.ResetBackColor()   'インテリセンス機能でも表示しないがエラーにもならないし有効に働く End Sub

６．

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

指定の色で表示 指定のカラーで表示 色の設定　カラー設定