如何使窗体自适应调整大小？

lrlxxqxa · 发表于 2010-6-27 21:51

如何使窗体自适应调整大小？

窗体调整大小事件是指当用户窗体改变大小时触发的一个事件。由于软件不同的使用人员可能使用不同的显示器屏幕，我们开发的软件就会因为屏幕大小的变化导致窗体打开后不美观，这时就可以使用窗体调整大小事件来改善这种状况。

步骤1：打开附件中的mdb文件，双击工资窗体运行：

这是我们看到窗体的布局比较合理。但是当我们用鼠标把边框向右和向下拉宽的时候，会发现：
下方和右边的边距太宽了，很不美观。

步骤2：下面我们通过调整窗体事件，实现直线和子窗体自适应窗体大小：

首先进入工资窗体的设计界面
需要调整的是直线的宽度和子窗体的宽度和高度。我们先要知道他们的名称，这可以通过调出属性对话框来获取。

步骤3：获取直线的名称属性为LineTop

步骤4：获取子窗体的名称属性为frmChild
步骤5：下面利用获取的直线和子窗体的名称，在窗体的调整大小事件中写VBA代码：

双击窗体左上角的黑色小方块，显示窗体属性，切换到“事件”选项卡，找到“调整大小”事件，选择“事件过程”

单击右边的。按钮，进入VBA代码窗口，在Private Sub Form_Resize（）过程中输入如下代码：

On Error Resume Next '错误处理语句
'调关闭按钮的左边距
Me.cmdClose.Left = Me.InsideWidth - 1200
'调直线宽度
Me.LineTop.Width = Me.InsideWidth
'调子窗体宽度与高度
Me.frmChild.Width = Me.InsideWidth - 400
Me.frmChild.Height = Me.InsideHeight - 800

复制代码

步骤6：保存并确定。

操作完毕。这时再重复第一步，发现窗体可以自适应调整大小了。

youliqi · 发表于 2010-6-28 09:33

值得收藏学习学习

zez · 发表于 2010-6-28 12:50

收藏学习学习

liurj · 发表于 2011-2-7 13:03

收藏学习,不错不错

qczvba · 发表于 2011-4-29 15:15

楼主有2003版本吗？

pen_j · 发表于 2011-5-13 10:23

twinkle210022 · 发表于 2011-12-13 17:08

好，值得收藏学习学习{:soso__13472026947278529755_1:}

twinkle210022 · 发表于 2011-12-13 18:03

好，值得收藏学习学习{:soso__13472026947278529755_1:}

咱家是猫 · 发表于 2011-12-13 22:19

楼主的方法其实有点讨巧,窗体里有个子窗体,如果没有子窗体来给你配合的话,那难度就大不同了,那就需要对窗体的各个控件(如标签,文本框)全部历遍处理了.通常常规的做法是把窗体(甚至你的整个程序)都在一个基准分辩率下(如1024*768)中来设计,然后在窗体打开过程中(或Resize事件中)写代码,用当前宽与高与原设计的宽与高对比,得出一个比率,用这个比率来处理各控件位置太宽高,甚至是字号的大小.
如果单单是控件位置,而不考虑宽高的相应变化的话,建议用Access2010,因为在2010版本里,内置了更方便的处理方法.

qangsheng · 发表于 2012-6-16 11:18

咱家是猫发表于 2011-12-13 22:19
楼主的方法其实有点讨巧,窗体里有个子窗体,如果没有子窗体来给你配合的话,那难度就大不同了,那就需要对窗体 ...

能给出2010是怎样处理的方法吗？

		自动登录	找回密码
密码			免费注册

[分享] 如何使窗体自适应调整大小？

回复 1楼 lrlxxqxa 的帖子

123123