| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 55 人关注过本帖
标题:【求助】:VFP环境编中编写的程序上,更改Windows屏幕显示分辨率问题
只看楼主 加入收藏
bilimyar
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2016-11-7
结帖率:0
收藏
 问题点数:20 回复次数:2 
【求助】:VFP环境编中编写的程序上,更改Windows屏幕显示分辨率问题
【求助】:VFP环境编中编写的程序上,更改Windows屏幕显示分辨率问题
我有一个宽度为1019,高度为700的Form1表单(1019*700);

Form1表单上两个commandbutton 控件,command1.caption="满屏放大模式"、command2.caption="恢复正常模式",
我想要为我的表单Form1满屏放大,要使Windows屏幕显示分辨率更改为最大极限1024*768。
当Windows屏幕显示分辨率更改为最大极限 1024*768 的时候,我的表单Form1才恰好完全满屏(这时避免我的表单Form1上的所有对象超出屏幕外面)。


我想要通过两个个commandbutton 控件,(如:command1、command2)实现这个目的:
当单击command1时,实现当前Windows屏幕显示分辨率更改到1024*768,同时保存到更改1024*768之前当前Windows屏幕显示分辨率
当单击command2时,取消1024*768的分辨率,恢复到更改1024*768之前当前Windows屏幕显示分辨率。

为此,command1(满屏放大模式)的Click事件要写什么代码?
      command2(恢复正常模式)的Click事件要写什么代码?

请高手指教,谢谢
搜索更多相关主题的帖子: Windows 屏幕 分辨率 更改 显示 
昨天 18:19
kangss
Rank: 8Rank: 8
等 级:贵宾
威 望:14
帖 子:346
专家分:834
注 册:2014-6-12
收藏
得分:0 
命令:SYSMETRIC( ) 函数
返回操作系统屏幕元素的大小

表单:WindowState 属性 (Visual FoxPro)
指定表单窗口在运行时刻显示为最大化、最小化 还是普通

程序代码:
lcDevMode=REPLICATE(CHR(0),156)
DECLARE INTEGER EnumDisplaySettings IN user32 INTEGER,INTEGER,STRING @
DECLARE INTEGER ChangeDisplaySettings IN user32 STRING @,INTEGER
*获取当前的显示模式
EnumDisplaySettings(0,4294967295,@lcDevMode)
*改变已获取的显示模式中的分辩率(宽、高)
lcDevMode=STUFF(lcDevMode,109,8,CHR(m._X%256)+CHR(m._X/256)+CHR(0)+CHR(0)+CHR(m._Y%256)+CHR(m._Y/256)+CHR(0)+CHR(0))
*使改变生效
ChangeDisplaySettings(@lcDevMode,1)
CLEAR DLLS "EnumDisplaySettings","ChangeDisplaySettings"
昨晚 19:43
hsfisher
Rank: 2
等 级:论坛游民
帖 子:92
专家分:55
注 册:2009-4-26
收藏
得分:0 
学习学习
4 小时前
快速回复:【求助】:VFP环境编中编写的程序上,更改Windows屏幕显示分辨率问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021117 second(s), 11 queries.
Copyright©2004-2025, BC-CN.NET, All Rights Reserved