学习Win32 API函数心得(1)：用VB6.0编程设置显示器分辨率

在程序设计中，有时候需要编程设置显示器的分辨率或其它参数， 通过调用Win32 API函数就可以实现这个目的，以下是本人用VB6实现此功能的代码。主要用到EnumDisplaySettings和ChangeDisplaySettings两个函数。

EnumDisplaySettings函数主要枚举当前显示器支持的所有显示模式，ChangeDisplaySettings函数用于改变显示器的分辨率、色彩数、刷新频率。

首先建立一个窗体Form1，添加一个ListBox和两个CommandButton控件，将Command1控件的Caption属性改为Show Display Settings，Command2控件的Caption属性改为Change Display Settings。然后添加两个Label控件和两个TextBox控件，用来输入需要设置的屏幕分辨率，各控件属性设置代码如下：

Command1.Caption＝"Show Display Settings"

Command2.Caption＝"Change Display Settings"

Label1.Caption＝"Width"

Label2.Caption="Height"

建立的用户界面如下：

在Form1的申明部分加入API函数申明

Private Const CCHDEVICENAME As Integer = 32
Private Const CCHFORMNAME As Integer = 32
Private Const DM_PELSWID