VB.NET设置屏幕分辨率、颜色位数、刷新率 实例代码
更新时间:2021年9月22日 10:14 点击:1426
复制代码 代码如下:
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long
Private Const CCDEVICENAME As Long = 32
Private Const CCFORMNAME As Long = 32
Private Const DM_BITSPERPEL As Long = &H40000
Private Const DM_PELSWIDTH As Long = &H80000
Private Const DM_PELSHEIGHT As Long = &H100000
Private Const DM_DISPLAYFLAGS As Long = &H200000
Private Const DM_DISPLAYFREQUENCY = &H400000
Private Const CDS_FORCE As Long = &H80000000
Private Const BITSPIXEL As Long = 12
Private Const HORZRES As Long = 8
Private Const VERTRES As Long = 10
Private Const VREFRESH = 116
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
Private Sub cmdChangeDesktopMode_Click()
Dim DM As DEVMODE
With DM
.dmPelsWidth = CInt(txtNewWidth.Text)
.dmPelsHeight = CInt(txtNewHeight.Text)
.dmBitsPerPel = CInt(txtNewColor.Text)
.dmDisplayFrequency = CInt(txtNewFreq.Text)
.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL Or DM_DISPLAYFREQUENCY
.dmSize = LenB(DM)
End With
If ChangeDisplaySettings(DM, CDS_FORCE) <> 0 Then
MsgBox "错误!不支持此模式!"
End If
End Sub
Private Sub Form_Load()
txtOldWidth.Text = GetDeviceCaps(Me.hdc, HORZRES)
txtOldHeight.Text = GetDeviceCaps(Me.hdc, VERTRES)
txtOldColor.Text = GetDeviceCaps(Me.hdc, BITSPIXEL)
txtOldFreq.Text = GetDeviceCaps(Me.hdc, VREFRESH)
End Sub
相关文章
120Hz耗电快不快 三星S20 120Hz和60Hz刷新率耗电对比
三星最新发布的旗舰手机 Galaxy S20 系列,搭载了一块顶尖的 AMOLED 屏幕,这块屏幕除了拥有 2K 分辨率和支持 HDR10+之外,还支持 120Hz 高刷新率。那么120Hz耗电快不快?下面小编带来三星S20 120Hz和60Hz刷新率耗电对比...2020-06-29- 这篇文章主要介绍了PyQt5 显示超清高分辨率图片的方法,帮助大家更好的理解和阿学习使用pyqt5,感兴趣的朋友可以了解下...2021-04-10
- 这篇文章主要为大家详细介绍了C#动态设置屏幕分辨率的方法,我们可以使用Screen类设置屏幕分辨率,感兴趣的小伙伴们可以参考一下...2020-06-25
- 所谓的色彩分辨率是什么?其实索尼主要指的是色域,因为色域的提升会让画面的层次更加丰富。传统的液晶显示设备色域不高,不过OLED面板以及激光光源的投影机色域的提升都非常的明显,可以实现诸如DCI-P3以及更高的BT.2020的色域范围...2017-07-06
- 这篇文章主要介绍了30行Python代码实现高分辨率图像导航的方法,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧...2020-05-23
- 这篇文章主要介绍了使用opencv拉伸图像扩大分辨率示例,需要的朋友可以参考下...2020-04-25
根据浏览器和分辨率不同自动调用CSS样式表 (jscript实现)
根据浏览器和分辨率不同自动调用CSS样式表, 这是用jscript实现的,以下是代码: 代码如下 复制代码 <!DOCTYPE html PUBLIC "-//W3C//DTD XH...2017-07-06- 今天小编就为大家分享一篇减少OpenCV读取高分辨率图像的时间示例,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧...2020-04-25
- 这篇文章介绍了VB.NET设置屏幕分辨率、颜色位数、刷新率 实例代码,有需要的朋友可以参考一下...2021-09-22