【发布时间】:2018-03-21 05:06:54
【问题描述】:
我在 ms access 2010 数据库中有一组两个嵌套导航子表单。问题是,当不同机器上的不同用户通过不同的屏幕分辨率和文本大小设置查看数据库时,表单可能会浪费屏幕空间,如下图所示:
如何设置每个导航子窗体的宽度和高度,以使两个导航子窗体的右侧和底部都有一个小插图(30 像素?),假设左侧和顶部是固定的吗?
这是我到目前为止编写的代码,但它把东西推到了右边和底部,没有在右边和底部留下我需要的插图:
Main form (this is the outermost form):
Private Sub Form_Resize()
On Error Resume Next
Me.NavigationSubform.Width = Me.WindowWidth - (Me.NavigationSubform.Left + 10)
Me.NavigationSubform.Height = Me.WindowHeight - (Me.NavigationSubform.Top + 10)
End Sub
FindClientsNavigation form (this is the second level form):
Private Sub Form_Resize()
On Error Resume Next
Me.NavigationSubform.Width = Me.WindowWidth - (Me.NavigationSubform.Left + 10)
Me.NavigationSubform.Height = Me.WindowHeight - (Me.NavigationSubform.Top + 10)
End Sub
我上传了一个简化版的数据库,足以重现问题at this file sharing site。
如果您想在下载数据库后在您的电脑上重新创建问题,您可以使用控制面板中的以下对话框设置 windows 文本大小属性:
【问题讨论】:
标签: ms-access vba ms-access-2010