【Access示例】根据显示器的分辨率打开对应窗体
时 间:2020-07-16 08:01:25
作 者:name ID:63090 城市:临汾
摘 要:根据显示器的分辨率打开对应窗体。
正 文:
在窗体的设计过程中,我们会发现不同分辨率或者缩放下,窗体显示效果差别非常大。这时候我们有以下的解决方案:
1、在窗体的Load事件中,我们获取窗体的宽度,然后根据窗体的宽度,使用vba代码设置每个控件的位置和大小。
2、给主流的几种分辨率创建不同的窗体,根据不同的分辨率显示不同的窗体
......
我们这篇文章主要讨论第二种方法
思 路:
1、打开一个非弹出的窗体
2、在窗体加载事件中,将Access窗体最大化
3、隐藏Access窗体左侧导航窗格/对象浏览器
4、获取窗体的宽度,然后根据宽度大概判断出对应的分辨率是多少,关闭当前窗体,显示出各个分辨率对应的窗体
代 码:
Public Function getScreenWidth() Dim width As Integer 'Access应用程序窗口最大化 DoCmd.RunCommand acCmdAppMaximize '隐藏左侧导航窗格/对象浏览器 DoCmd.SelectObject acForm, , True DoCmd.RunCommand acCmdWindowHide width = Form.WindowWidth '显示左侧导航窗格/对象浏览器 DoCmd.SelectObject acForm, , True '大约2k分辨率 If width > 29000 Then getScreenWidth = 2000 Exit Function End If '大约1080分辨率 If width > 20000 Then getScreenWidth = 1080 Exit Function End If '大约720分辨率 If width > 15000 Then getScreenWidth = 720 Exit Function End If End Function Private Sub Form_Load() Dim screenSize As Integer screenSize = getScreenWidth DoCmd.Close acForm, "frmOpen" Select Case screenSize Case 2000 DoCmd.OpenForm "frm2k" Exit Sub Case 1080 DoCmd.OpenForm "frm1080" Exit Sub Case 720 DoCmd.OpenForm "frm720" Exit Sub End Select End Sub
示 例:
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)