#019 BorderColor

"BorderColor/境界線色" プロパティ

コントロールの境界線色を設定します。プロパティ値としては、プロパティシートに自動的に設定される長整数の値、色の組み込み定数、RGB関数の返り値などを設定できます。

なおこのプロパティ設定は、立体表示プロパティが"なし"または"影付き"のときのみ有効です。それ以外の立体表示ではうまく動作しません。
また、コントロールの境界線幅プロパティが"細線"でかつフォームにWindowsのテーマが適用されている場合には、このプロパティに"黒"を設定したとき、Windowsテーマの色に置換されて表示されるといったことがあります。

ラベル、テキストボックス、コンボボックス、リストボックス、オプショングループ、オプションボタン、チェックボックス、イメージ、サブフォーム、四角形、線

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

  Static intCounter As Integer

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

  With Me!txtデータ
    Select Case intCounter
      Case 1
        '境界線を黒に
        .BorderColor = vbBlack
      Case 2
        '境界線を青に
        .BorderColor = vbBlue
      Case 3
        '境界線を緑に
        .BorderColor = vbGreen
      Case 4
        '境界線を長整数指定
        .BorderColor = 12615808
      Case 5
        '境界線をRGB関数で作った中間色に
        .BorderColor = RGB(200, 10, 150)
    End Select
  End With

End Sub
  • テキストボックスの境界線色が順番に変化していく実行例です。

| Index | Prev | Next |

 

Copyright © T'sWare All rights reserved