网页功能: 加入收藏 设为首页 网站搜索  
如何设定屏幕分辨率
发表日期:2002-12-08作者:[] 出处:  

原则上,只改这一次,下一次开机会还原,但如果需重开机,才会Update

Registry中的设定,并重开机。

如果要永久设定其设定值,请将

b = ChangeDisplaySettings(DevM, 0) 改成

b = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)

Option Explicit

Private Declare Function EnumDisplaySettings Lib "user32" Alias _

  "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, _

  ByVal iModeNum As Long, lpDevMode As Any) As Long

Private Declare Function ChangeDisplaySettings Lib "user32" Alias _

  "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, _

         ByVal dwReserved As Long) As Long

Const EWX_REBOOT = 2     ' 重开机

Const CCDEVICENAME = 32

Const CCFORMNAME = 32

Const DM_PELSWIDTH = &H80000

Const DM_PELSHEIGHT = &H100000

Const DISP_CHANGE_SUCCESSFUL = 0

Const DISP_CHANGE_RESTART = 1

Const CDS_UPDATEREGISTRY = 1

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 DevM As DEVMODE

Private Sub Command1_Click()

  Dim i As Long

  Dim b As Long

  Dim ans as Long

  Dim a As Long

  a = EnumDisplaySettings(0, 0, DevM) 'Initial Setting

  DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT

  DevM.dmPelsWidth = 800  '设定成想要的分辨率

  DevM.dmPelsHeight = 600

  b = ChangeDisplaySettings(DevM, 0) 'Changed Only this time

  If b = DISP_CHANGE_RESTART Then

    ans = MsgBox("要重开机设定才能完成,重开?", vbOKCancel)

    If ans = 1 Then

      b = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)

      'after this , Will Update in Registry

      Call ExitWindowsEx(EWX_REBOOT, 0)

    End If

  Else

    If b <> DISP_CHANGE_SUCCESSFUL Then

     Call MsgBox("设定有误", vbCritical)

    End If

  End If

End Sub

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 如何设定屏幕分辨率
本类热点文章
  在VB中使用WMI获取系统硬件和软件有关信..
  在VB中使用WMI获取系统硬件和软件有关信..
  将繁体中文字转化成简体中文
  将繁体中文字转化成简体中文
  获取CPU的ID
  获取CPU的ID
  在vb程序中如何获取剪贴板中所复制的文..
  在vb程序中如何获取剪贴板中所复制的文..
  VB编程破解Windows屏幕保护密码
  更新桌面图片
  更新桌面图片
  让程序的鼠标支持滚轮
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2024 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00405