怎样用VB来改变显示器的分辩率呀?
解决方案 »
- 报表控件datareport在使用是怎样把数据环境设计器中的命令的字段拖到报表控件中,拖不了呀???请指教
- 100分求IC卡考勤系统源代码
- 在VB中如何将txt文本导入sqlserver
- 为什么:Set DataGrid1.DataSource=rs'err:类型不匹配
- 如何用vb实现excel的不同book内的sheet拷贝
- 请问 &H1是不是代表1,&H2是不是代表2?
- 初学,关于ado,ole db,odbc,dao之间的关系和区别
- 日期格式问题
- 怎样把.swf的flash动画变成.avi视频,是编程还是有工具软件?急!急! 急!急!急!急!急!急!是好汉的告诉俺!
- 关于If...then...elseif...else与If语句嵌套有人可以举例说明一下吗?新手求助
- 问个简单问题。
- 如何使MDAC2.5或2.7在后台进行安装(只要不用人为操作即可)?
你看看对你会不会有什么帮助,我没有试过通过它来修改,你可以试一下
Lib "kernel32" Alias "lstrcpyA" _
(lpString1 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
dmCollate As Integer
dmFormName As String * CCHFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags 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 SetDisplayMode(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 = -1 Then
.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
Else
.dmFields = DM_PELSWIDTH Or _
DM_PELSHEIGHT Or DM_BITSPERPEL
End If
.dmPelsWidth = Width
.dmPelsHeight = HeightIf Color <> -1 Then
.dmBitsPerPel = Color
End If
End With
pDevmode = lstrcpy(NewDevMode, NewDevMode)
SetDisplayMode = ChangeDisplaySettings(pDevmode, 0)
End Function
例子调用:改变为 640x480x24位:
i = SetDisplayMode(640, 480, 24)
如果成功返回 0 。