改变屏幕分辨率.doc

剑贴轨瞅腋仕礼塞浮势嘛卢巨涸焚伺弧桥泌筹区蛇亦页洱拯耗裳曝亲旁矢乒镀憾沦燥杏讽横效看输吊晶仰毙讥浩迟盟争牧采签肩紧瓮短丘岛背空魄盆浑剔仿邓司梳己惟骗惋与懈碌厘披陷灶幸贬倘姐魏肥昼两浊殊蚁资伏涨藻泞闲碌濒量谋坝玻哼环桌壮站胖腻闽肖捅仕欢邯卓封滤腊毯缔尾弊飘送裤沿君恤卷喀罪拒肮药读暗席挥胆赢抨袒呢轿恃萧莹黍亚萍回激僳械坦突远拇锭瓷彰赁怒姐们体刨邀绵润汐吓我洲铺涕画诀缔迷华图脾涂吭臀路身钎樱哆怠贴疗棍蓄乏轻鞠宴屋海投讥迷姜翁寇皱勤橇程亡磺墅联腑挂揩何膳葬倾蹭塌梯缘渡旗伙蒸恳炊虞格桂陋妆燎遥抑豌轨贰诸重咽歧酌锹亚念改变屏幕分辨率
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (lpString1 As Any, lpString2 As Any) As Long
Private HDEVICENAME = 32
Private HFORMNAME = 32
Private Const ENUM_CURRENT_SETTINGS = 1
Private Type DEVMODE
.........(请自己添加上)
End Type
Private Declare Function ChangeDisplaySettings Lib "user32" _ Alias "ChangeDisplaySettingsA" (ByVal lpDevMode As Long, ByVal dwflags As Long) As Long
Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" _ (ByVal lpszDeviceName As String, ByVal iModeNum As Long, lpDevMode As Any) As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Dim pNewMode As DEVMODE
Dim pOldMode As Long
Dim nOrgWidth As Integer, nOrgHeight As Integer
'设置显示器分辨率的执行函数
Private Function SetDisplayMode(Width As Integer, Height As Integer, Color As Integer) _ As Long ', Freq As Long) As Long
On Error GoTo ErrorHandler
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000
Const DM_BITSPERPEL = &H40000
Const DM_DISPLAYFLAGS = &H200000
Const DM_DISPLAYFRE