VB中利用API函数实现屏幕颜色数设定(1)

标签：计算机二级考试真题,国家计算机二级考试,计算机二级考试试题,http://www.gaofen123.com VB中利用API函数实现屏幕颜色数设定(1),
原则上，只改这一次，下一次开机会还原，但如果需重开机，才会update registry中的设定，并重开机。

　　如果要永久设定其设定值，请将

b = changedisplaysettings(devm, 0)

　　改成

b = changedisplaysettings(devm, cds_updateregistry)

　　注：

　　devm.dmbitsperpel 便是设定颜色数，其实应说每个pixel要多少bits来显示

　　4 16色
　　8 256色
　　16 65536色 以此类推

<推荐 class=txcode cellspacing=0 cellpadding=0 align=center border=0> option explicit
private declare function enumdisplaysettings lib "user32" alias _
"enumdisplaysettingsa" (byval lpszdevicename as long, _
byval imodenum as long, lpdevmode as any) as long

private declare function changedisplaysettings lib "user32" alias _
"changedisplaysettingsa" (lpdevmode as any, byval dwflags as long) as long
private declare function exitwindowsex lib "user32" (byval uflags as long, _
byval dwreserved as long) as long

const ewx_reboot = 2 ’ 重开机
const ccdevicename = 32
const ccformname = 32

const dm_bitsperpel = %26amp;h40000
const disp_change_successful = 0
const disp_change_restart = 1
const cds_updateregistry = 1
private type devmode
dmdevicename as string * ccdevicename
dmspecversion as integer
dmdriverversion as integer
dmsize as integer
dmdriverextra as integer