OldBorderStyle 属性

expandtri全部显示

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

expression.OldBorderStyle

expression     必需。返回“应用于”列表中的一个对象的表达式。

说明

对于窗体,BorderStyle 属性使用以下设置:

设置

Visual Basic

说明

0

窗体没有边框或相关的边框元素。窗体大小不可调整。

细边框

1

窗体有细的边框而且能包含任何边框元素。窗体大小是不可调整的(“控制”菜单上的“大小”命令不可用)。弹出式窗体经常使用该设置。(如果要保持窗体在所有 Microsoft Access 窗口的上方,必须将它的 PopUp 属性设为“是”。)

可调边框

2

(默认值) Microsoft Access 窗体的默认边框,可以包含任何边框元素,而且可以调整大小。普通的 Microsoft Access 窗体经常会用到该设置。

对话框

3

窗体有厚边框(双线),并且只能包含一个标题栏、“关闭”按钮和“控制”菜单。窗体不能最大化、最小化或调整大小(“控制”菜单上的“最大化”、“最小化”和“大小”命令不可用)。一般总是将该设置用于自定义对话框。(不过,如果希望窗体为有模式的,则必须将其 Modal 属性设为“是”。如果希望窗体是有模式的弹出式窗体(一般对话框都是这样),则必须将其 PopUpModal 属性都设为“是”)。

对于控件,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