请教大家，有没有一些关于设置 屏幕刷新率 的例子？（注意，不是分辨率）

[biku]

请教大家，有没有一些关于设置 屏幕刷新率 的例子？（注意，不是分辨率）
即如何同过代码实现：1、得知当前的屏幕刷新率。2、设置屏幕刷新率。3、系统的最大屏幕刷新率

[bydisplay]

http://www.easysea.com/diannao/prog/vb/tech/007.htm看看

[TechnoFantasy]

ChangeDisplaySettings
其中设置DEVMODE中的dmDisplayFrequency

[TechnoFantasy]

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

Const CCDEVICENAME = 32
Const CCFORMNAME = 32
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000
Const DM_DISPLAYFREQUENCY = &H400000

Private Type DEVMODE
dmDeviceName As String * CCDEVICENAME
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 * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type
Dim DevM As DEVMODE

Sub ChangeRes(iWidth As Single, iHeight As Single, iFrequency As Single)
Dim a As Boolean
Dim i As Integer
i = 0
Do
a = EnumDisplaySettings(0&, i, DevM)
i = i + 1
Loop Until (a = False)

Dim b&
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_DISPLAYFREQUENCY

DevM.dmPelsWidth = iWidth
DevM.dmPelsHeight = iHeight
DevM.dmDisplayFrequency = iFrequency

ChangeDisplaySettings DevM, 0
End Sub

[shuicai]

学习

[biku]

to TechnoFantasy(www.applevb.com) :
因为当我用程序设置了 分辨率 的时候，系统老是将 刷新率 自动改为 60，我想能否通过 适当 的程序 让系统不改变 刷新率，而保持原来的 刷新率。

[TechnoFantasy]

Sorry，我这里用的液晶，没法试验，有时间明天给你代码。

[biku]

顶顶！TechnoFantasy(www.applevb.com) 已经过了一个月了，你能给我代码了吗？谢谢了