フォーム＆コントロールプロパティ活用辞典-017 BackColor

Private Sub Form_Timer()
'フォームのタイマ時イベント

  Static intCounter As Integer

  intCounter = intCounter + 1
  If intCounter > 5 Then intCounter = 1

  With Me.Section(acDetail)
    Select Case intCounter
      Case 1
        '背景を黒に
        .BackColor = vbBlack
      Case 2
        '背景を青に
        .BackColor = vbBlue
      Case 3
        '背景を緑に
        .BackColor = vbGreen
      Case 4
        '背景を赤に
        .BackColor = vbRed
      Case 5
        '背景をRGB関数で作った中間色に
        .BackColor = RGB(200, 10, 150)
    End Select
  End With

End Sub


#017		BackColor
"BackColor/背景色" プロパティコントロールやフォームのセクションの背景色を設定します。プロパティ値としては、プロパティシートに自動的に設定される長整数の値、色の組み込み定数、RGB関数の返り値などを設定できます。フォームセクション、ラベル、テキストボックス、コンボボックス、リストボックス、オプショングループ、イメージ、四角形 Private Sub Form_Timer() 'フォームのタイマ時イベント Static intCounter As Integer intCounter = intCounter + 1 If intCounter > 5 Then intCounter = 1 With Me.Section(acDetail) Select Case intCounter Case 1 '背景を黒に .BackColor = vbBlack Case 2 '背景を青に .BackColor = vbBlue Case 3 '背景を緑に .BackColor = vbGreen Case 4 '背景を赤に .BackColor = vbRed Case 5 '背景をRGB関数で作った中間色に .BackColor = RGB(200, 10, 150) End Select End With End Sub 詳細セクションの背景色が順番に変化していく実行例です。
\| Index \| Prev \| Next \|