当前位置：首页 → 问答吧 → 如何使窗体自适应调整大小？

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

时间：2010-06-27

来源：互联网

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

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

步骤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：保存并确定。

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