[摘要]声明”区Option ExplicitDim H, V, Color As Long’声名变量，用于保存最初屏幕设置Private Sub Form_Load()‘---------------以下...
声明”区
Option Explicit
Dim H, V, Color As Long
’声名变量，用于保存最初屏幕设置
Private Sub Form_Load()
‘---------------以下代码用于得到最初的屏幕设备--------------
H = GetDeviceCaps(Form1.hdc, HORZRES)
V = GetDeviceCaps(Form1.hdc, VHORZRES)
Color = GetDeviceCaps(Form1.hdc, BITSPIXEL)
End Sub
Private Sub Command1_Click()
‘调用SetDispMode函数改变屏幕设置
SetDispMode 800, 600, 16
End Sub
Private Sub Command2_Click()
‘恢复最初屏幕设置
SetDispMode Cint(H), Cint(V), Cint(Color)
End Sub
---- 四、将程序编译执行。
---- 本程序执行后，如果单击Command1，则您的计算机屏幕显示模式将被设置为“800x600x16”的显示模式；如果单击Command2, 则您的计算机屏幕显示模式将被设置为原来的显示模式。此程序稍加修改，即可放置于桌面或任务栏中，直接快捷的修改屏幕设置。
关键词：在VB中调用API函数动态改变及恢复屏幕设置