Access实现选项卡里多个子窗体边距对齐,大小一致

2017-12-26 15:50:00
黄善超
原创
927

在Access中,有一个选项卡控件,该控件作为一个容器可以添加多个页来显示不同的内容。

一般情况下,我们每个页都会添加子窗体。往往直接拖拉窗体,位置和大小都是不统一的。切换页面时就显得不那么好看了。

当然我们可以逐个去设置子窗体的位置和大小。但是如果一个子窗体的位置改变了。那么是否每一个都需要逐个去调整,显然是不科学的。


如在窗体中添加一个选项卡控件,添加3个页,同时每个页添加一个子窗体,分别命名为“学生”、“课程”、“成绩”。



我们用代码自动对齐和自动控制大小。令“学生”子窗体与“课程”子窗体左,上边距,高度,宽度都一致。同理,其他子窗体一样的设置。

Private Sub Form_Resize()
    Me.课程.Left = Me.学生.Left  '子窗体左端对齐
    Me.课程.Top = Me.学生.Top   '子窗体顶端对齐
    Me.课程.Width = Me.学生.Width    '宽度一致
    Me.课程.Height = Me.学生.Height    '高度一致
     
End Sub


如图:位置和大小都是一致的。

    分享