OldBorderStyle 属性
内容
使用该属性可以设置或返回窗体或报表 BorderStyle 属性的未编辑的值。如果需要回复到未编辑或首选的边框样式，该属性将很有用。Byte 型，可读写。
expression.OldBorderStyle
expression 必需。返回“应用于”列表中的一个对象的表达式。
说明
对于窗体，BorderStyle 属性使用以下设置：
设置 |
Visual Basic |
说明 |
无 |
0 |
窗体没有边框或相关的边框元素。窗体大小不可调整。 |
细边框 |
1 |
窗体有细的边框而且能包含任何边框元素。窗体大小是不可调整的（“控制”菜单上的“大小”命令不可用）。弹出式窗体经常使用该设置。（如果要保持窗体在所有 Microsoft Access 窗口的上方，必须将它的 PopUp 属性设为“是”。） |
2 |
（默认值） Microsoft Access 窗体的默认边框，可以包含任何边框元素，而且可以调整大小。普通的 Microsoft Access 窗体经常会用到该设置。 |
|
对话框 |
3 |
窗体有厚边框（双线），并且只能包含一个标题栏、“关闭”按钮和“控制”菜单。窗体不能最大化、最小化或调整大小（“控制”菜单上的“最大化”、“最小化”和“大小”命令不可用）。一般总是将该设置用于自定义对话框。（不过，如果希望窗体为有模式的，则必须将其 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