Access 属性的 SubForm.OldBorderStyle ()-杨雪专栏

语法:

表达式.OldBorderStyle

表达式一个代表 SubForm 对象的变量。

备注:

OldBorderStyle 属性使用以下设置。

设置 Visual Basic 说明

透明 0 （仅作为标签、图表和子报表的默认值）透明

实线 1 （默认值）实线

虚线 2 虚线

短虚线 3 短虚线

点线 4 点线

稀疏点线 5 点距较宽的点线

点划线 6 虚线与点线组合的点划线

点点划线 7 虚线-点线-点线组合的点点划线

双实线 8 双实线

示例:
下面的示例演示更改控件的 BorderStyle 属性，同时使 OldBorderStyle 不受影响的效果。该示例最后将边框样式属性设置为其原始未编辑的值。

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