| 色の設定及び設定色名の取得 (7個) (SNo.061) １．テキストボックスのバックカラーを設定する ２．テキストボックスのフォアカラーを設定する ３．使用しているカラーの名前を取得する |
|
| 使用コントロール | Button1 Button2 Button3 Label1 TextBox1 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) |
|
１．テキストボックスのバックカラーを設定する
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click 'バックカラーを設定(下記はすべて同じ色です) TextBox1.BackColor = System.Drawing.Color.Yellow() TextBox2.BackColor = ColorTranslator.FromWin32(&HFFFF) TextBox3.BackColor = ColorTranslator.FromWin32(Microsoft.VisualBasic.RGB(255, 255, 0)) TextBox4.BackColor = Color.FromName("Yellow") TextBox5.BackColor = ColorTranslator.FromHtml("#FFFF00") TextBox6.BackColor = ColorTranslator.FromHtml("Yellow") TextBox7.BackColor = ColorTranslator.FromWin32(65535) TextBox8.BackColor = ColorTranslator.FromOle(QBColor(14)) TextBox9.BackColor = ColorTranslator.FromOle(RGB(255, 255, 0)) '指定した Color 構造体を HTML カラーの文字列形式に変換します。 Debug.WriteLine(ColorTranslator.ToHtml(TextBox9.BackColor)) 'Yellow '指定した Color 構造体を OLE カラーに変換します。 Debug.WriteLine(ColorTranslator.ToOle(TextBox9.BackColor)) '65535 '指定した Color 構造体を Windows カラーに変換します。 Debug.WriteLine(ColorTranslator.ToWin32(TextBox9.BackColor)) '65535 End Sub 'BackColor を既定値にします。 TextBox1.BackColor = Color.FromKnownColor(System.Drawing.KnownColor.Window) |
|
| ２．テキストボックスのフォアカラーを設定する Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click 'フォアカラーを設定 TextBox1.ForeColor = System.Drawing.Color.Blue() End Sub 'ForeColor を既定値にします。 TextBox1.ForeColor = Color.FromKnownColor(System.Drawing.KnownColor.WindowText) |
|
| ３．使用しているカラーの名前を取得する Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click '使用しているカラーの名前を取得 'Color.Name プロパティ 'この Color Name の名前を取得します。色が名前を基に作成されている場合は '色のユーザー定義名を、それ以外の場合は既知の色の名前を返します。 '独自に作成した色の場合は RGB 値が返されます。 Label1.Text = TextBox1.BackColor.Name End Sub |
|
2004/05/18
2007/05/27
2009/05/27
VBレスキュー(花ちゃん)
VB.NET2003 VB2005