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

随父窗体大小自动变化的子窗体一例

时 间:2008-06-26 10:33:17
作 者:zoutians   ID:995  城市:自贡
摘 要:在加载事件和调整代码事件中分别写入了以下代码:
正 文:

在加载事件和调整代码事件中分别写入了以下代码:

Private Sub Form_Load()    ' 加载
    Me.Orders.Width = Me.Form.InsideWidth - 2 * Me.Orders.Left
    Me.Orders.Height = Me.Form.InsideHeight - 510
End Sub

Private Sub Form_Resize()    ' 调整大小
    If Me.Form.InsideHeight > 3000 Then     ' 父窗口小于某值时停止,不然会出错
        Me.Orders.Width = Me.Form.InsideWidth - 2 * Me.Orders.Left
        Me.Orders.Height = Me.Form.InsideHeight - 510
    End If
End Sub

点击下载此附件



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

常见问答:

技术分类:

相关资源:

专栏作家

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