Dim h, v, color As Long
Dim vcol As Integer, vrow As Integer, vitcolor As Integer

Private Sub Command1_Click()
setdispmode vrow, vcol, vbitcolor
End Sub

Private Sub Command2_Click()
setdispmode CInt(h), CInt(v), CInt(color)
End Sub

Private Sub Command3_Click()
Unload Me

End Sub

Private Sub Form_Load()
'保存最初的屏幕设置
h = getdevicecaps(Me.hdc, horzres)
v = getdevicecaps(Me.hdc, vhorzres)
color = getdevicecaps(Me.hdc, bitspixel)
End Sub

Private Sub Option1_Click()
If Option1 = True Then
vcol = 480
vrow = 640
vbitcolor = 16
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
End If
End Sub

Private Sub Option2_Click()
If Option2 = trie Then
vcol = 480
vrow = 640
vbitcolor = 32
Option1.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
End If
End Sub

Private Sub Option3_Click()
If Option3 = True Then
vcol = 600
vrow = 800
vbitcolor = 16
Option1.Value = False
Option2.Value = False
Option4.Value = False
Option5.Value = False
End If
End Sub

Private Sub Option4_Click()
If Option4 = True Then
vcol = 600
vrow = 800
vbitcolor = 32
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option5.Value = False
End Sub

Private Sub Option5_Click()
If Option5 = True Then
vcol = 600
vrow = 800
vbitcolor = 16
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
End Sub
--------------------------------------------------------------------------------------------------

“大侠们帮忙看下程序谢谢了.!”
你以为改作文呢？

If Option2 = trie Then
trie变量没定义，算是True的错别字，扣2分。

讲点题外话，“Dim h, v, color As Long”定义下来的h和v是什么类型？

Declare Function getdevicecaps Lib "gdi32" (ByVal hdc As Long, ByVal nindex As Long) As Long '取指定设备的信息API函数
'三个屏幕常量
Public Const horzres = 8
Public Const vhorzres = 10
Public Const bitspixel = 12
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (lpstringl As Any, lpstring2 As Any) As Long
Const CCHDEVICENAME = 32
Const CCHFORMNAME = 32
Private Type DEVMODE
dmdevicename As String * CCHDEVICENAME
dmspecversion As Integer
dmdriverversion As Integer
dmsize As Integer
dmdriverextra As Integer
dmfields As Long
dmorientation As Integer
dmpapersize As Integer
dmpaperlength As Integer
dmpaperwidth As Integer
dmscale As Integer
dmcopies As Integer
dmdefaultsource As Integer
dmprintquality As Integer
dmcolor As Integer
dmduplex As Integer
dmyresolution As Integer
dmttoption As Integer
dmformname As String * CCHFORMNAME
dmunusedpadding As Integer
dmbitsperpel As Integer
dmpelswidth As Long
dmpelsheight As Long
dmdisplayfrequency As Long
End Type
Private Declare Function changedisplaysettings Lib "user32" Alias "changedisplaysettingsa" (ByVal lpdevmode As Long, ByVal dwflags As Long) As Long
Public Function setdispmode(width As Integer, height As Integer, color As Integer) As Long
Const dm_pelswidth = &H80000
Const dm_pelsheight = &H100000
Const dm_bitsperpel = &H40000
Dim newdevmode As DEVMODE
Dim pdevmode As Long
With newdevmode.dmsize = 122
If color = 0 Then
'如果color=0则只能改变屏幕的分辨率,而不改变色彩/
.dmfields = dm_pelswidth Or dm_pelsheight
Else
'如果color不等0则改变屏幕的分辨率和色彩
.dmfileds dm_pelswidth Or dm_pelsheight Or dm_bitsperpel
End If
.dmpelswidth = width
.dmpelsheight = height
If color <> 0 Then
.dmbitsperpel = color
End If
End With
pdevmode = lstrcpy(newdevmode, newdevmode)
'得到一个指向newdevmode结构的long型的指针.
changedisplaysettings pdevmode, 0
End Function



End Function

==这具体我还没发完呢嘿嘿

3楼是模块的声明  为什么我一运行就提示错误呢  453错误 说找不到dll入口点getdevicecaps in gdi32这个错误喔

好了..帮忙看下版主 谢谢了.

版主来呀 看看来内`

End Function



End Function

...

上楼  我删了一个end function  还是那样的错误,不是那的错误

问题解决了 是声明问题
把模块声明换成Declare Function GetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" (ByVal hdc As Long, ByVal nIndex As Long) As Long
就OK了.！