ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > 我的酷贴 > Access > 如何使窗体自适应调整大小?

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

作者:绿色风 分类: 时间:2022-08-18 浏览:148
楼主
lrlxxqxa
Q:如何使窗体自适应调整大小?

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


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



 



这是我们看到窗体的布局比较合理。但是当我们用鼠标把边框向右和向下拉宽的时候,会发现:



 



下方和右边的边距太宽了,很不美观。


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


首先进入工资窗体的设计界面



 



需要调整的是直线的宽度和子窗体的宽度和高度。我们先要知道他们的名称,这可以通过调出属性对话框来获取。


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



 



步骤4:获取子窗体的名称属性为frmChild



 



步骤5:下面利用获取的直线和子窗体的名称,在窗体的调整大小事件中写VBA代码:


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



 



单击右边的。按钮,进入VBA代码窗口,在Private Sub Form_Resize()过程中输入如下代码:


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



步骤6:保存并确定。



 



操作完毕。这时再重复第一步,发现窗体可以自适应调整大小了。
窗体自适应调整大小.rar
2楼
eliane_lei
进来学习!谢谢分享!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap