Access VBA教程:OldBorderStyle属性

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

expression.OldBorderStyle

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 双实线

VBA示例

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

上页:Access VBA教程:ODBCConnectStr属性 下页:Access VBA教程:OldValue属性

Access VBA教程:OldBorderStyle属性

Access VBA教程:OldValue属性 Access VBA教程:OLEClass属性
Access VBA教程:OLEData属性 Access VBA教程:OLEType属性
Access VBA教程:OLETypeAllowed属性 Access VBA教程:OnActivate属性
Access VBA教程:OnApplyFilter属性 Access VBA教程:OnChange属性
Access VBA教程:OnClick属性 Access VBA教程:OnClose属性
Access VBA教程:OnConnect属性 Access VBA教程:OnCurrent属性
Access VBA教程:OnDblClick属性 Access VBA教程:OnDeactivate属性
Access VBA教程:OnDelete属性 Access VBA教程:OnDirty属性
Access VBA教程:OnDisconnect属性 Access VBA教程:OnEnter属性
Access VBA教程:OnError属性 Access VBA教程:OnExit属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号