Access Tips #527 １６進数表記でコントロールの色を設定するには？

Private Sub txt16進数_AfterUpdate()

  Dim strColor As String
  Dim lngR As Long
  Dim lngG As Long
  Dim lngB As Long

  'テキストボックスの入力値を取得
  strColor = Me!txt16進数

  'RGBそれぞれの値を分解
  lngR = CLng("&H" & Mid$(strColor, 1, 2))
  lngG = CLng("&H" & Mid$(strColor, 3, 2))
  lngB = CLng("&H" & Mid$(strColor, 5, 2))

  '四角形コントロールの背景色を設定
  Me!bxColor.BackColor = RGB(lngR, lngG, lngB)

End Sub


#527	１６進数表記でコントロールの色を設定するには？	フォーム、VBA
フォーム上のテキストボックスに１６進数を入力すると、その設定値に合わせてとなりの四角形コントロールの背景色が変わるという例です。ここでいう１６進数とは、よくホームページの色の設定で使われる「#FF0033」のような、「#」に続く６桁の表記のことです。６桁の構成は、２桁ごとに前からR（赤）、G（緑）、B（青）の配色の度合いを示しており、「#FF0033」であれば赤がFF、緑が00、青が33の３要素を混ぜた色合いになります。ここではまず、次のようなデザインのフォームを用意します。このフォームのデザインの内容は次のようになっています。１６進数を入力するテキストボックスの名前 → txt16進数 ※ここでは#は入力しないものとしますテキストボックスのIME入力モードプロパティ → ”使用不可” ※半角数字しか入力しないのでこの設定を行います（実際にはさらに、６桁までしか入力できないよう定型入力や入力規則プロパティも設定しておくとベターです）色を表示するための四角形コントロールの名前 → bxColor 四角形コントロールの背景スタイルプロパティ → ”普通” ※背景色を表示するのでこの設定が必須です次に、テキストボックスの更新後処理イベントプロシージャを次のようにします。 Private Sub txt16進数_AfterUpdate() Dim strColor As String Dim lngR As Long Dim lngG As Long Dim lngB As Long 'テキストボックスの入力値を取得 strColor = Me!txt16進数 'RGBそれぞれの値を分解 lngR = CLng("&H" & Mid$(strColor, 1, 2)) lngG = CLng("&H" & Mid$(strColor, 3, 2)) lngB = CLng("&H" & Mid$(strColor, 5, 2)) '四角形コントロールの背景色を設定 Me!bxColor.BackColor = RGB(lngR, lngG, lngB) End Sub 実行例： ※関連Tips「#342 １６進数を１０進数に変換するには？」 ※関連Tips「#344 RGB値をRとGとBの１６進に分割変換する方法」
\| Index \| Prev \| Next \|