全部显示

OldBorderStyle 属性

使用该属性可以设置或返回窗体或报表 BorderStyle 属性的未编辑的值。如果需要回复到未编辑或首选的边框样式，该属性将很有用。Byte 型，可读写。

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

对于窗体，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 属性设为何值，窗体都不会有“控制”菜单。
  
  
• OldBorderStyle 属性的设置不会影响滚动条、浏览按钮、记录编号框或记录选定器的显示。

示例

下面的示例将演示更改控件的 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