CustomControl.OldBorderStyle 属性 (Access)

  • 项目

使用此属性可设置或返回窗体或控件的 BorderStyle 属性的未编辑值。 此属性是非常有用的如果您需要恢复为未编辑或首选的边框样式。 可读/写 Byte 类型。

语法

表达式。OldBorderStyle

表达 一个代表 CustomControl 对象的变量。

备注

OldBorderStyle 属性使用以下设置。

Setting 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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。