如何改变应用程序的分辨率？

[Atry]

例如，我要在应用程序启动时将分辨率改成640 X 480，在退出的时候将分辨率调回去。应该用什么函数？

[Montaque]

Win32 api

[Atry]

能不能稍微具体一点点

[Montaque]

呵呵，我还是用vb中的老方法。
这是以前vb的代码
Option Explicit

Private Declare Function EnumDisplaySettings _
Lib "user32" Alias "EnumDisplaySettingsA" ( _
ByVal lpszDeviceName As Long, _
ByVal iModeNum As Long, _
lpDevMode As Any) As Boolean

Private Declare Function ChangeDisplaySettings _
Lib "user32" Alias "ChangeDisplaySettingsA" ( _
lpDevMode As Any, _
ByVal dwflags As Long) As Long

Private Type DEVMODE
dmDeviceName As String * 32
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
dmCollate As Integer
dmFormName As String * 32
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type

Const DM_BITSPERPEL = &H40000
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000
Const DM_DISPLAYFREQUENCY = &H400000


Private Sub ChangeRes(lngPelsWidth As Long, _
lngPelsHeight As Long, _
intBitsPerPel As Integer, _
lngDisplayFrequency As Long)
Dim dm As DEVMODE

Call EnumDisplaySettings(0&, -1, dm)

dm.dmFields = DM_PELSWIDTH Or _
DM_PELSHEIGHT Or _
DM_BITSPERPEL Or _
DM_DISPLAYFREQUENCY
dm.dmPelsWidth = lngPelsWidth
dm.dmPelsHeight = lngPelsHeight
dm.dmBitsPerPel = intBitsPerPel
dm.dmDisplayFrequency = lngDisplayFrequency

Call ChangeDisplaySettings(dm, 1)
End Sub


Private Sub Command1_Click()
Call ChangeRes(800, 600, 16, 75) '75是刷新率
End Sub

Private Sub Form_Load()

End Sub

[Atry]

对不起，我们没有学过VB6，能不能讲解一下，谢谢你。

[Atry]

顶一下

[Atry]

顶