OldBorderStyle 屬性
內(nèi)容
使用該屬性可以設置或返回窗體或報表 BorderStyle 屬性的未編輯的值。如果需要回復到未編輯或首選的邊框樣式，該屬性將很有用。Byte 型，可讀寫。
expression.OldBorderStyle
expression 必需。返回“應用于”列表中的一個對象的表達式。
說明
對于窗體，BorderStyle 屬性使用以下設置：
設置 |
Visual Basic |
說明 |
無 |
0 |
窗體沒有邊框或相關的邊框元素。窗體大小不可調(diào)整。 |
細邊框 |
1 |
窗體有細的邊框而且能包含任何邊框元素。窗體大小是不可調(diào)整的（“控制”菜單上的“大小”命令不可用）。彈出式窗體經(jīng)常使用該設置。（如果要保持窗體在所有 Microsoft Access 窗口的上方，必須將它的 PopUp 屬性設為“是”。） |
2 |
（默認值） Microsoft Access 窗體的默認邊框，可以包含任何邊框元素，而且可以調(diào)整大小。普通的 Microsoft Access 窗體經(jīng)常會用到該設置。 |
|
對話框 |
3 |
窗體有厚邊框（雙線），并且只能包含一個標題欄、“關閉”按鈕和“控制”菜單。窗體不能最大化、最小化或調(diào)整大?。ā翱刂啤辈藛紊系摹白畲蠡薄ⅰ白钚』焙汀按笮 泵畈豢捎茫?。一般總是將該設置用于自定義對話框。（不過，如果希望窗體為有模式的，則必須將其 Modal 屬性設為“是”。如果希望窗體是有模式的彈出式窗體（一般對話框都是這樣），則必須將其 PopUp 和 Modal 屬性都設為“是”）。 |
對于控件，OldBorderStyle 屬性使用以下設置。
設置 |
Visual Basic |
說明 |
透明 |
0 |
|
實線 |
1 |
（默認值）實線 |
虛線 |
2 |
虛線 |
短虛線 |
3 |
短虛線 |
點線 |
4 |
點線 |
稀疏點線 |
5 |
點距較寬的點線 |
點劃線 |
6 |
虛線與點線組合的點劃線 |
點點劃線 |
7 |
虛線-點線-點線組合的點點劃線 |
雙實線 |
8 |
雙實線 |
| ? | 如果 OldBorderStyle 屬性設為“無”或“對話框邊框”，則無論它的 MinMaxButtons 屬性設為何值，窗體都沒有“最大化”或“最小化”按鈕。 |
| ? | 如果 OldBorderStyle 屬性設為“無”，則無論它的 ControlBox 屬性設為何值，窗體都不會有“控制”菜單。 |
示例
下面的示例將演示更改控件的 BorderStyle 屬性，同時又使 OldBorderStyle 不受影響的效果。該示例的結果是 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