Office中国论坛/Access中国论坛

标题: 最简单的自动调整程序窗口的办法 [打印本页]

作者: zzcjp 时间: 2008-11-12 17:57
标题: 最简单的自动调整程序窗口的办法
新建一个模块：获取窗口分辨率，把代码复制进去
'=========================================================================
Private Declare Function GetSystemMetrics Lib "User32" (ByVal nIndex As Long) As Long
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Function ctload(x As Integer)
x = GetSystemMetrics(SM_CXSCREEN)
y = GetSystemMetrics(SM_CYSCREEN)
End Function
'===========================================================================
‘在需要自动适应分辨率的窗口加载事件中黏贴以下代码
Private Sub Form_Load()
Dim x As Integer
Call ctload(x)             '获取当前窗口屏幕分辨率
If x = 800 Then          '当你的程序在800*600分辨率下开发X=800,否则X=1024,其他分辨率类推
DoCmd.Maximize       '采用ACCESS的窗口最大化命令，所有窗口、控件的比例最合适。比其他方案简单
Else
DoCmd.Restore          '当前分辨率不等于你的程序开发时的分辨率时，恢复到原始大小的窗口
End If
End Sub

作者: tmtony 时间: 2008-11-12 19:55
谢谢分享!

作者: huangqinyong 时间: 2008-11-13 00:40
谢谢分享!

作者: lxing20 时间: 2009-4-9 15:20
谢谢分享!谢谢分享!

作者: fengxueysh 时间: 2009-4-10 19:33
谢谢看看

作者: ycjjacky 时间: 2009-4-16 23:15
谢谢看看

作者: szblueidea 时间: 2009-4-29 04:43
than you ,good

作者: 枫然忧郁 时间: 2009-7-22 10:50
如果开发环境不是全屏的怎么办？？？
比如在1024*768的窗口模式下开发

作者: li08hua 时间: 2009-9-2 23:28
谢谢

作者: chaojianan 时间: 2009-10-7 03:33
谢谢分享。

作者: wlhwlh0482 时间: 2009-10-22 15:20
谢谢分享，支持

作者: wuwu200222 时间: 2020-4-16 14:43
谢谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)