在VB.NET中改变显示器的分辩率

转贴说明
出处:ttp://www.microsoft.com/china/community/Column/28.mspx
作者:李洪根

在VB.NET中,我们很容易获得显示器的分辩率,但是,要改变显示器的分辩率就比较麻烦了。由于.NET的类库没有将EnumDisplaySettings 和ChangeDisplaySettings这两个API函数进行封装,但是我们得调用它们函数,相对于VB6来说,VB.NET调用API函数是有一些小的改动!
下面,我们就尝试一下在VB.NET中,使用这两个API函数。
新建一个项目,在Form1上添加两个按钮,一个名为btnGetDisp,将其Text属性设置为“得到分辩率”;另一个按钮名为btnSetDisp,Text属性为“设置分辩率”。然后在代码窗口里添加以下代码: 

    Private Const CCDEVICENAME As Short = 32
    Private Const CCFORMNAME As Short = 32
    Private Const DM_PELSWIDTH As Integer = &H80000
    Private Const DM_PELSHEIGHT As Integer = &H100000

'刷新频率常量
Private Const DM_DISPLAYFREQUENCY As Integer = &H400000

    '调用API函数
    Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" 
    (ByVal lpszDeviceName As Integer, ByVal iModeNum As Integer, ByRef lpDevMode As DEVMODE) As Boolean
    '调用API函数
    Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" 
    (ByRef lpDevMode As DEVMODE, ByVal dwflags As Integer) As Integer

    '定义结构
    Private Structure DEVMODE
        <VBFixedString(CCDEVICENAME), System.Runtime.InteropServices.MarshalAs
        (System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=CCDEVICENAME)> Public dmDeviceName As String
        Dim dmSpecVersion As Short
        Dim dmDriverVersion As Short
        Dim dmSize As Short
        Dim dmDriverExtra As Short
        Dim dmFields As Integer
        Dim dmOrientation As Short
        Dim dmPaperSize As Short
        Dim dmPaperLength As Short
        Dim dmPaperWidth As Short
        Dim dmScale As Short
        Dim dmCopies As Short
        Dim dmDefaultSource As Short
        Dim dmPrintQuality As Short
        Dim dmColor As Short
        Dim dmDuplex As Short
        Dim dmYResolution As Short
        Dim dmTTOption As Short
        Dim dmCollate As Short
        <VBFixedString(CCFORMNAME), System.Runtime.InteropServices.MarshalAs
        (System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=CCFORMNAME)> Public dmFormName As String
        Dim dmUnusedPadding As Short
        Dim dmBitsPerPel As Short
        Dim dmPelsWidth As Integer
        Dim dmPelsHeight As Integer
        Dim dmDisplayFlags As Integer
        Dim dmDisplayFrequency As Integer
    End Structure

    '改变分辩率过程,参数一宽度,参数二高度
    Private Sub ChangeDisp(ByRef iWidth As Single, ByRef iHeight As Single)
        Dim blnWorked As Boolean
        Dim i As Integer
        Dim DevM As Form1.DEVMODE
        i = 0
        Do
            blnWorked = EnumDisplaySettings(0, i, DevM)
            i = i + 1
        Loop Until (blnWorked = False)

        With DevM
            .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT  Or DM_DISPLAYFREQUENCY
            .dmPelsWidth = iWidth
            .dmPelsHeight = iHeight
'刷新频率为85
.dmDisplayFrequency = 85       
        End With
        Call ChangeDisplaySettings(DevM, 0)
    End Sub

    Private Sub btnGetDisp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetDisp.Click
        Dim X As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
        Dim Y As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
        MsgBox("您的显示器分辨率是" & X & " X " & Y)
    End Sub

    Private Sub btnSetDisp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetDisp.Click
        If MsgBox("您确认要将显示器分辨率改为1024x768吗?", MsgBoxStyle.OKCancel, "系统消息") = MsgBoxResult.OK Then
            '调用改变分辩率过程
            ChangeDisp(1024, 768)
        End If
    End Sub
 
VB.NET,直接读取HDMI显示器型号通常是不可能的,因为这涉及到硬件访问,而.NET Framework并不支持底层的设备驱动程序编程,特别是对于显卡、显示器等硬件信息。获取显示器的具体型号通常依赖于操作系统提供的API或者第三方库。 你可以使用以下步骤间接地获取信息: 1. **WMI(Windows Management Instrumentation)**:可以利用WMI查询功能来获取系统信息,包括显示器的详细规格。在VB.NET,你可以创建一个`ManagementObjectSearcher`,然后指定查询条件如`Select("Name", "Model")`来获取显示器名称和型号。 ```vb.net Dim query As String = _ "SELECT Name, Model FROM Win32_DesktopMonitor WHERE DeviceID='DISPLAY\\*'" Dim searcher As New ManagementObjectSearcher(query) For Each result In searcher.Get() Dim name As String = result.Properties("Name").Value.ToString() Dim model As String = result.Properties("Model").Value.ToString() Console.WriteLine("显示器名:" & name & ", 模型:" & model) Next ``` 请注意,这种方法的效果取决于系统设置,并非所有信息都能获取到。 2. **第三方库**:有些第三方库,比如SharpDX或DirectX,虽然不是官方支持,但在特定场景下可以提供底层硬件访问,包括显示器型号。但使用这类库需要谨慎,因为它们可能需要管理员权限并且不是所有的环境都兼容。 3. **用户输入或系统设置文件**:如果显示器型号显示在系统的图形界面设置或其他应用程序,你可以考虑从用户交互或系统配置文件读取数据。 由于这涉及到的操作系统级别的敏感信息,你需要确保你有合法的理由和权限去获取这些信息。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值