Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

Access 属性的 SubForm.OldBorderStyle ()

时 间: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源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助