玄関へお回り下さい。
色の設定及び設定色名の取得 (7個)             (SNo.061)

1.テキストボックスのバックカラーを設定する
2.テキストボックスのフォアカラーを設定する
3.使用しているカラーの名前を取得する
使用コントロール Button1  Button2 Button3 Label1  TextBox1
その他条件 WindowsXP(Vista) Visual Basic 2005(VB2008)
 
1.テキストボックスのバックカラーを設定する
 
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)
 
2.テキストボックスのフォアカラーを設定する
 
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)

3.使用しているカラーの名前を取得する
 
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