2
∞
2
年
9
月
第
26
卷第
3
期
安徽大学学报(自然科学版)
Journal
of
Anh
ui
University Natural Science Edition
September 2002
Vo
1.
26 No.3
利用
Visual
Basic
编程改变屏幕显示设置
傅丁祥
(安徽大学管理学院,安徽合肥
23
∞
39)
摘
要:一些程序在运行时使用的显示分辨率与平时所用的分辨率不同,本文针对这些
程序介绍一种利用
Visual
Basic
编程来实现自动保存当前的显示分辨率、设置指定分辨率、运
行程序、恢复以前的分辨率的方法,本方法在机器上调试通过,具有一定的实用性。
关键词:分辨率
;VB;API;
函数:参数
中图分类号:TP31l
.56
文献标识码
:B
文章编号
:10
∞-
2162(2
仪)2
)03
-∞
21-
倒
o
51
屏幕显示设置通常是通过‘开始\设置飞控制面板\显示飞设置'或直接单击任务栏
中的‘显示设置图标'进行选择就行了。但是如果有很多程序运行时所使用的显示分辨率
及颜色都与你的习惯不同,如在
640
提
480
的分辨率
256
色下运行一些较早的程序(尤其
是一些游戏或多媒体软件)
,而你平常可能习惯使用
800
美
600
的分辨率
64K
色或
16M
色,
那么这些程序运行前则需要重新进行屏幕显示设置,在程序运行结束时又需要恢复屏幕
显示设置,虽然步骤不多也不复杂,但是还是很烦琐的,这里就提供一种解决这一问题的
方法。
VB(
Visual
Basic)
是一门很普及的计算机编程语言,本方法就是利用
VB
编程来实现
的。编程思路为:(1)在修改屏幕显示设置之前先保存当前的屏幕设置
;(2)
修改屏幕显示
设置;
(3)运行其它的程序;
(4)
结束其它程序的运行
;(5)
恢复原先的屏幕设置。步骤简述
为:首先启动
VB
,新建一个名为
DSPLYSET
的工程,在其中只新建一个名为
DSPLYSET
的
模块再输入程序代码(见程序清单)
,然后运行程序。
1
主要程序清单
,
DsplySet
模块的内锵
'VB
中要使用的
Windows
API
函数的声明
Public Declare Function
Ge
t Device Caps
Li
b
飞出
32"
(ByVal hdc
As
1.o
ng
, ByVal nIndex
As
1.o
ng)
As
1.o
ng
Public Declare Function Get
DC
Ex
Li
b "use
r3
2"
(ByVal
hwnd
As
1.o
r
毡,
ByVal hrgnclip
As
1.o
ng
, ByVal
fdwOptions
As
1.o
ng)
As
1.o
ng
Public Declare Function
Ge
t
DC
Lib "user32" (ByVal
hwnd
As
1.o
ng)
As
1.o
ng
Public Declare Function Get Desktop Window Lib "user32"
()
As
1.o
ng
Pu
blic Declare Function Release
DC
Lib "user32" (ByVal
hwnd
As
1.0吨,
ByVal hdc
As
1.o
ng)
As
1.o
ng
收稿日期
:2
∞
1
-
12
一
19
作者简介:傅丁祥(1
974
-
),男,安徽长丰人,安徽大学讲师.