Access 属性的 SubForm.OldBorderStyle ()

来源:www.accessoft.com 点击数:3549 　 | 收藏 | 复制

时　间:2021-11-20 20:00:36
作　者:杨雪 ID：42182 城市：南京
摘　要:您可以使用此属性来设置或返回窗体或控件的边框样式属性未编辑的值。此属性是非常有用的如果您需要恢复为未编辑或首选的边框样式。可读/写 Byte 类型。
正　文:

语法:

表达式.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

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】