vb中修改屏幕分辨率

VB 前端之家
前端之家收集整理的这篇文章主要介绍了vb中修改屏幕分辨率，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

在窗体上画一个按钮和四个文本框，运行如下代码：启动时，显示相应数据。修改后，单击按钮改变设置。

  1.  
  2.  
      1.   
      2.   
      1. OptionExplicit 
      3.   
      4.   
      1. PrivateDeclareFunctionGetDeviceCapsLib"gdi32"(ByValhdcAsLong,ByValnIndexAsLong)AsLong
      5.   
      6.   
      1. PrivateDeclareFunctionChangeDisplaySettingsLib"user32"Alias"ChangeDisplaySettingsA"(lpDevModeAsAny,ByValdwflagsAsLong)AsLong
      7.   
      8.   
      1. PrivateConstCCDEVICENAMEAsLong=32 
      9.   
      10.   
      1. PrivateConstCCFORMNAMEAsLong=32 
      11.   
      12.   
      13.   
      14.   
      1. PrivateConstDM_BITSPERPELAsLong=&H40000 
      15.   
      16.   
      1. PrivateConstDM_PELSWIDTHAsLong=&H80000 
      17.   
      18.   
      1. PrivateConstDM_PELSHEIGHTAsLong=&H100000 
      19.   
      20.   
      1. PrivateConstDM_DISPLAYFLAGSAsLong=&H200000 
      21.   
      22.   
      1. PrivateConstDM_DISPLAYFREQUENCY=&H400000 
      23.   
      24.   
      25.   
      26.   
      1. PrivateConstCDS_FORCEAsLong=&H80000000 
      27.   
      28.   
      29.   
      30.   
      1. PrivateConstBITSPIXELAsLong=12 
      31.   
      32.   
      1. PrivateConstHORZRESAsLong=8 
      33.   
      34.   
      1. PrivateConstVERTRESAsLong=10 
      35.   
      36.   
      1. PrivateConstVREFRESH=116 
      37.   
      38.   
      39.   
      40.   
      1. PrivateTypeDEVMODE 
      41.   
      42.   
      1. dmDeviceNameAsString*CCDEVICENAME 
      43.   
      44.   
      1. dmSpecVersionAsInteger
      45.   
      46.   
      1. dmDriverVersionAsInteger
      47.   
      48.   
      1. dmSizeAsInteger
      49.   
      50.   
      1. dmDriverExtraAsInteger
      51.   
      52.   
      1. dmFieldsAsLong
      53.   
      54.   
      1. dmOrientationAsInteger
      55.   
      56.   
      1. dmPaperSizeAsInteger
      57.   
      58.   
      1. dmPaperLengthAsInteger
      59.   
      60.   
      1. dmPaperWidthAsInteger
      61.   
      62.   
      1. dmScaleAsInteger
      63.   
      64.   
      1. dmCopiesAsInteger
      65.   
      66.   
      1. dmDefaultSourceAsInteger
      67.   
      68.   
      1. dmPrintQualityAsInteger
      69.   
      70.   
      1. dmColorAsInteger
      71.   
      72.   
      1. dmDuplexAsInteger
      73.   
      74.   
      1. dmYResolutionAsInteger
      75.   
      76.   
      1. dmTTOptionAsInteger
      77.   
      78.   
      1. dmCollateAsInteger
      79.   
      80.   
      1. dmFormNameAsString*CCFORMNAME 
      81.   
      82.   
      1. dmUnusedPaddingAsInteger
      83.   
      84.   
      1. dmBitsPerPelAsInteger
      85.   
      86.   
      1. dmPelsWidthAsLong
      87.   
      88.   
      1. dmPelsHeightAsLong
      89.   
      90.   
      1. dmDisplayFlagsAsLong
      91.   
      92.   
      1. dmDisplayFrequencyAsLong
      93.   
      94.   
      1. EndType 
      95.   
      96.   
      97.   
      98.   
      1. PrivateSubcommand1_Click() 
      99.   
      100.   
      101.   
      102.   
      1. DimDMAsDEVMODE 
      103.   
      104.   
      1.  
      105.   
      106.   
      1. WithDM 
      107.   
      108.   
      1. .dmPelsWidth=CInt(Text1.Text) 
      109.   
      110.   
      1. .dmPelsHeight=CInt(Text2.Text) 
      111.   
      112.   
      1. .dmBitsPerPel=CInt(Text3.Text) 
      113.   
      114.   
      1. .dmDisplayFrequency=CInt(Text4.Text) 
      115.   
      116.   
      1. .dmFields=DM_PELSWIDTHOrDM_PELSHEIGHTOrDM_BITSPERPELOrDM_DISPLAYFREQUENCY 
      117.   
      118.   
      1. .dmSize=LenB(DM) 
      119.   
      120.   
      1. EndWith
      121.   
      122.   
      1.  
      123.   
      124.   
      1. IfChangeDisplaySettings(DM,CDS_FORCE)<>0Then
      125.   
      126.   
      1.  
      127.   
      128.   
      1. MsgBox"错误!不支持此模式！"
      129.   
      130.   
      1.  
      131.   
      132.   
      1. EndIf
      133.   
      134.   
      135.   
      136.   
      1. EndSub
      137.   
      138.   
      139.   
      140.   
      1. PrivateSubForm_Load() 
      141.   
      142.   
      1. Text1.Text=GetDeviceCaps(Me.hdc,HORZRES) 
      143.   
      144.   
      1. Text2.Text=GetDeviceCaps(Me.hdc,VERTRES) 
      145.   
      146.   
      1. Text3.Text=GetDeviceCaps(Me.hdc,BITSPIXEL) 
      147.   
      148.   
      1. Text4.Text=GetDeviceCaps(Me.hdc,VREFRESH) 
      149.   
      150.   
      1. EndSub
      151.  
      152.

    猜你在找的VB相关文章

    VB Format函数
    Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
    vb6/ASP FORMAT MM/DD/YYYY
    VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
    VB.net 捕获项目全局异常
    在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
    实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
    转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
    vb，wps，excel 分裂
    Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
    VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
      Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
    VB.NET 使用ADODB連接資料庫滙出到EXCEL
    ‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
    vb.net 多线程運用 ping
    Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
    VB等待进程结束
    VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
    vb中去掉string数组的一部分
    今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
    PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
    文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积