xshell6左侧导航显示_根据显示器的分辨率打开对应窗体

↑↑↑点击上方图片，了解详情

      在窗体的设计过程中，我们会发现不同分辨率或者缩放下，窗体显示效果差别非常大。这时候我们有以下的解决方案：

      1、在窗体的Load事件中，我们获取窗体的宽度，然后根据窗体的宽度，使用vba代码设置每个控件的位置和大小。

      2、给主流的几种分辨率创建不同的窗体，根据不同的分辨率显示不同的窗体

......

      我们这篇文章主要讨论第二种方法。

VBA代码：

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

示例下载：

点击本文末尾左下角的

End 推荐阅读 用Access分析数据  免费精品微课连载课程，真实工厂案例，每节课几分钟，零基础也可以学会。【详情>> 】   Access课程集锦  众多Access数据库课程，每一名学员，都可以找到适合自已学习的课程。【详情>> 】   Access软件作品  十二位Access学员对自已开发的软件进行了介绍并分享开发心得，一起来了解Access开发的软件。【详情>> 】   Access VBA的作用  从5个方面讲解了Access VBA的作用并举例说明，提供源码示例下载，可供借鉴。【详情>> 】   Access学习资源管理  6分钟免费微课并分享源代码，开发了一个小软件来管理学习资源。【详情>> 】   张志，Access数据库培训讲师，『Access软件网』创始人，服务过的知名企业有北京奔驰、立达(中国)纺织仪器、宜家(中国)投资等。 2003~2013年连续10年获微软最有价值专家。【详情>>】