ComboBox.OldBorderStyle プロパティ (Access)
フォームまたはコントロールの BorderStyle プロパティの編集されていない値を設定または返すには、このプロパティを使用します。 このプロパティは、編集されていない罫線スタイルまたは優先罫線スタイルに戻す必要がある場合に便利です。 読み取り/書き込みの バイト です。
構文
式。OldBorderStyle
式ComboBox オブジェクトを表す変数。
注釈
OldBorderStyle プロパティの設定値は次のとおりです。
Setting | Visual Basic | 説明 |
---|---|---|
[Transparent/透明] | 0 | 透明 (ラベル、グラフ、およびサブレポートの場合の既定値) |
実線 | 1 | 実線 (既定値) |
破線 | 2 | 破線 |
Short dashes | 3 | 細かい破線 |
Dots | 4 | 点線 |
Sparse dots | 5 | 間隔の粗い点線 |
Dash dot | 6 | 一点鎖線 |
Dash dot dot | 7 | 二点鎖線 |
Double solid | 8 | 二重実線 |
例
次の例では、OldBorderStyle が影響を受けないようにしながら、コントロールの BorderStyle プロパティを変更する効果を示します。 この例では、最終的に " BorderStyle /境界線スタイル" プロパティを編集前の値に戻します。
With Forms("Order Entry").Controls("ZIP Code")
.BorderStyle = 3 ' Short dashed border.
MsgBox "BorderStyle = " & .BorderStyle & vbCrLf & _
"OldBorderStyle = " & .OldBorderStyle ' Prints 3, 1.
.BorderStyle = 2 ' Dashed border.
MsgBox "BorderStyle = " & .BorderStyle & vbCrLf & _
"OldBorderStyle = " & .OldBorderStyle ' Prints 2, 1
.BorderStyle = .OldBorderStyle ' Solid (default) border.
MsgBox "BorderStyle = " & .BorderStyle & vbCrLf & _
"OldBorderStyle = " & .OldBorderStyle ' Prints 1, 1
End With
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。