Access 属性的 SubForm.OldBorderStyle ()

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

语   法:

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